Bonsoir Marc,
Si la cellule recherchée est toujours égale à B1, peu importe la couleur de fond (mise en forme contitionnelle ?), et tu peux utiliser le code suivant qui n'est pas forcément le plus rapide (tout dépend de l'étendue de ta plage de données) :
Sub Indentifier_Cellule()
Dim Plage As Range
Dim Cellule_Cible As Range
Set Plage = Range('Ta_Plage_de_données')
For Each Cellule_Cible In Plage
If Cellule_Cible.Value = Range('B1').Value Then
Cellule_Cible.Select
Exit Sub 'C'est pas très clean comme sortie, mais bon...
End If
Next
End Sub
Amicalement
Lionel