Bonjour,
un bout de code pour te dépanner
Sub Comparplage()
'Comparaison de 2 feuilles distinctes
Application.ScreenUpdating = False
Dim Cherch As Range, Cel As Range
Dim Plg As Range, MaPlage As Range
Dim C As Integer, Macell
Set Plg = Feuil1.Range('A1:K22')
If Plg Is Nothing Then Exit Sub
Set Cherch = Feuil2.Range('A1:K22')
If Cherch Is Nothing Then Exit Sub
For Each Cel In Plg
Set Macell = Cherch.Find(Cel, , , xlWhole, , xlNext)
If Macell Is Nothing Then
If C = 0 Then
Set MaPlage = Cel
C = C + 1
Else
Set MaPlage = Union(MaPlage, Cel)
End If
End If
Next
If MaPlage Is Nothing Then
Else
MaPlage.Interior.ColorIndex = 6
End If
Set Plg = Nothing: Set Macell = Nothing
Set Cherch = Nothing: Set MaPlage = Nothing
End Sub