Sub Mise1()
Dim O As Worksheet 'déclare la variable O (Onglets)
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)
[/COLOR]
[COLOR=#000000]
For Each O In Sheets 'boucle sur tous les onglets O du classeur
Select Case O.Name 'agit en fonction du nom de l'onglet O
Case "Feuil1", "Feuil2" 'ici tu mettras le nom du ou des onglets qui ne sont pas concernés (si il y en en), j'ai mis "Feuil1" et "Feuil2" pour l'exemple, tu adapteras à ton cas
Case Else 'tous les autres cas (donc ceux qui sont concernés par la macro)
With O 'prend en compte l'onglet O
Set pf = .Range("E191:E252") 'définit la plage pf
'définit la plage pr
Set pr = .Range("D7:F180")
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
cf.Font.ColorIndex = 2
Exit For 'sort de la boucle 2
Else: cf.Font.ColorIndex = 1
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 O
End Select 'fin de l'action en fonction du nom de l'onglet
Next O 'prochain onglet de la boucle
End Sub