Macro adapter sur plusieurs feuille ?

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