Salut
voilà j'ai fais un exemple en comparant les valeurs dans une même feuille
si tu dois le faire dans des feuilles différentes ca sera pas beaucoup plus compliqué. SI tu y arrives pas, tu pourras me redemander en attendant voici ceci :
_____________________________________________________
Sub GrasSiEgal()
'
Dim Comp1, Comp2 As Integer
' Macro1 Macro
lastligne = Range("A65536").End(xlUp).Row
For L = 1 To lastligne
Comp1 = Left(Cells(L, 1), 2)
Comp2 = Cells(L, 2)
If Comp1 = Comp2 Then
Cells(L, 1).Font.Bold = True
Else
Cells(L, 1).Font.Bold = False
End If
Next
'
End Sub