Rajoute ça dans un module et lance la macro:
Option Explicit
Public Sub Comparaison_Colonnes()
' Le contrôle s'effectue en 3 parties:
' ? Contrôle sur l'égalité du nb de lignes entre les colonnes A-D et B-E
' ? Si elles ont le même nb de lignes, on vérifie l'égalité des valeurs
' ? si les 2 conditions antérieures sont validées, on compare les valeurs des colonnes C-F
' et on met les cellules dans la colonne F en gras.
' Tableau du premier fichier
Dim iNbLigneWorkBook1(1 To 3) As Integer
' Tableau du second fichier
Dim iNbLigneWorkBook2(1 To 3) As Integer
' Nb Colonne du premier fichier
Dim iNbColonne1 As Integer
' Nb Colonne du second fichier
Dim iNbColonne2 As Integer
' Indice de boucle
Dim i As Integer
' Flag pour les colonnes identiques
Dim bColonneIdentique As Boolean
iNbColonne1 = 1
iNbColonne2 = 4
bColonneIdentique = True
Do
' Récupération du nb de lignes des 3 premières colonnes du premier fichier...
iNbLigneWorkBook1(iNbColonne1) = 0
Application.Workbooks(1).Worksheets(1).Activate
While Cells(iNbLigneWorkBook1(iNbColonne1) + 1, iNbColonne1).Value <> ""
iNbLigneWorkBook1(iNbColonne1) = iNbLigneWorkBook1(iNbColonne1) + 1
Wend
' Récupération du nb de lignes des 3 colonnes du second fichier...
iNbLigneWorkBook2(iNbColonne1) = 0
Application.Workbooks(2).Worksheets(1).Activate
While Cells(iNbLigneWorkBook2(iNbColonne1) + 1, iNbColonne2).Value <> ""
iNbLigneWorkBook2(iNbColonne1) = iNbLigneWorkBook2(iNbColonne1) + 1
Wend
' Si elles sont identiques et qu'on est pas sur la troisième colonne, on sort...
If iNbLigneWorkBook1(iNbColonne1) <> iNbLigneWorkBook2(iNbColonne1) And iNbColonne1 <> 3 Then
bColonneIdentique = False
End If
iNbColonne1 = iNbColonne1 + 1
iNbColonne2 = iNbColonne2 + 1
Loop Until iNbColonne1 > 3
' Si les colonnes A-D et B-E ont le même nb de lignes, on teste les valeurs
If bColonneIdentique Then
For iNbColonne1 = 1 To 2
iNbColonne2 = iNbColonne1 + 3
For i = 1 To iNbLigneWorkBook1(iNbColonne1)
If Application.Workbooks(1).Worksheets(1).Cells(i, iNbColonne1).Value <> Application.Workbooks(2).Worksheets(1).Cells(i, iNbColonne2).Value Then
bColonneIdentique = False
Exit For
End If
Next
Next
End If
iNbColonne1 = 3
iNbColonne2 = 6
' Si les colonnes A-D et B-E ont le même nb de lignes et les mêmes valeurs, on teste les colonnes C et F
If bColonneIdentique Then
' On supprime le gras dans la colonne...
Application.Workbooks(2).Worksheets(1).Columns(iNbColonne2).Select
Selection.Font.Bold = False
' Si les valeurs dans C et F sont différentes, on met la cellule dans F en gras...
' On compare les 2 feuilles et on prend le plus petit nb de lignes
If iNbLigneWorkBook1(iNbColonne1) >= iNbLigneWorkBook2(iNbColonne1) Then
For i = 1 To iNbLigneWorkBook2(iNbColonne1)
If Application.Workbooks(1).Worksheets(1).Cells(i, iNbColonne1).Value <> Application.Workbooks(2).Worksheets(1).Cells(i, iNbColonne2).Value Then
Application.Workbooks(2).Worksheets(1).Cells(i, iNbColonne2).Select
Selection.Font.Bold = True
End If
Next
Else
For i = 1 To iNbLigneWorkBook1(iNbColonne1)
If Application.Workbooks(1).Worksheets(1).Cells(i, iNbColonne1).Value <> Application.Workbooks(2).Worksheets(1).Cells(i, iNbColonne2).Value Then
Application.Workbooks(2).Worksheets(1).Cells(i, iNbColonne2).Select
Selection.Font.Bold = True
End If
Next
End If
End If
End Sub