Sub Macro1()
Dim dls As Long 'déclare la variable dls (Dernière Ligne onglet Suivi)
Dim pls As Range 'déclare la variable pls (PLage onglet Suivi)
Dim o As Byte 'décalre la variable o (Onglets)
Dim dl As Long 'déclare la variable dl (Dernière Ligne)
Dim pl As Range 'déclare la variable Pl (PLage)
Dim cel As Range 'déclare la variable cel (CELlule)
Dim r As Range 'déclare la variable r (Recherche)
With Sheets("SUIVI") 'prend en compte l'onglet "SUIVI"
dls = .Cells(Application.Rows.Count, 2).End(xlUp).Row 'définit la dernière ligne éditée dls de la colonne B
Set pls = .Range("B2:B" & dls) 'définit la plage pls
End With 'fin de la prise en compte de l'onglet "SUIVI"
For o = 1 To Sheets.Count 'boucle 1 : sur tous les onglets du classeur
If Sheets(o).Name <> "SUIVI" Then 'condition 1 : si le nom du classeur est différent de "SUIVI"
With Sheets(o) 'prend en compte l'onglet o
dl = .Cells(Application.Rows.Count, 5).End(xlUp).Row 'définit la dernière ligne éditée dl de la colonne E
Set pl = .Range("E5:E" & dl) 'définit la plage pl
End With 'fin de la prise en compte de l'onglet o
For Each cel In pl 'boucle 2 : sur toutes les cellules cel de la plage pl
Set r = pls.Find(cel.Value, , xlValues, xlWhole) 'définit la recherche r
If Not r Is Nothing Then 'condition 2 : si il existe au moins une occurrence trouvée
cel.Offset(0, -2).Value = r.Address(0, 0) 'récupère l'adresse de la première occurrence trouvée
cel.Offset(0, -2).Interior.ColorIndex = 3 'colore la cellule de rouge
End If 'fin de la condition 2
Next cel 'prochaine cellule de la boucle 2
End If 'fin de la condition 1
Next o 'prochain onglet de la boucle 1
End Sub