Private Sub CommandButton2_Click()
Dim dl1 As Integer, dl2 As Integer 'déclare les variables dl1 et dl2 (Dernière Ligne)
Dim pl1 As Range, pl2 As Range 'déclare les variables pl1 et pl2 (PLage)
Dim cel As Range 'déclare la variable cel (CELlule)
Dim r As Range 'déclare la variable r (Recherche)
Dim x As Byte 'déclare la variable x (incrément)
dl1 = Cells(Application.Rows.Count, 1).End(xlUp).Row 'definit la dernière ligne dl1
dl2 = Cells(Application.Rows.Count, 5).End(xlUp).Row 'definit la dernière ligne dl2
Set pl1 = Range("A5:A" & dl1) 'définit la plge pl1
Set pl2 = Range("E5:E" & dl2) 'définit la plge pl2
For Each cel In pl1 'boucle 1 : sur toutes les cellules cel de la plage pl1
Set r = pl2.Find(cel.Value, , xlValues, xlWhole) 'définit la recherche r (recherche la valeur entière de la cellule dans la plage pl2)
If Not r Is Nothing Then 'condition : si il existe au moins une occurrence trouvée
For x = 1 To 2 'boucle 2 : sur les deuc colonnes adjacentes
'si la cellule à coté de cel est différente de la cellule à coté de r, couleur verte
If cel.Offset(0, x).Value <> r.Offset(0, x).Value Then r.Offset(0, x).Interior.ColorIndex = 4
Next x 'prochaine colonne de la boucle 2
End If 'fin de la confition
Next cel 'prochaine cellule de la boucle 1
End Sub