Sub Macro2()
Dim pf As Range 'déclare la variable pf (Plage de réFérence)
Dim pr As Range 'déclare la variable pr (Plage de Recherche)
Dim cf As Range 'déclare la variable cf (Cellule de la plage de réFérence)
Dim cr As Range 'déclare la variable cr (Cellule de la plage de Recherche)
With Sheets("Vision élargie") 'prend en compte l'onglet "Vision élargie"
Set pf = .Range("H5:H" & .Cells(Application.Rows.Count, 8).End(xlUp).Row) 'définit la plage pf
'définit la plage pr
Set pr = Application.Union(.Range("P5:P" & .Cells(Application.Rows.Count, 16).End(xlUp).Row), .Range("X5:X" & .Cells(Application.Rows.Count, 24).End(xlUp).Row), _
.Range("AF5:AF" & .Cells(Application.Rows.Count, 32).End(xlUp).Row))
For Each cf In pf 'boucle 1 : sur toutes les cellules cf de la plage pf
For Each cr In pr 'boucle 2 : sur toutes les cellules cr de la plage pr
If cr.Value = cf.Value Then 'condition : si les deux cellules sont identiques
cr.Resize(1, 5).Interior.ColorIndex = 6 'colore la ligne de cr de jaune
Exit For 'sort de la boucle 2
End If 'fin de la condition
Next cr 'prochaine cellule cr de la boucle 2
Next cf 'prochaine cellule cf de la boucle 1
End With 'fin de la prise en compte de l'onglet "Vision élargie"
End Sub
