Sub R()
Dim p As Range, c As Range, Adresse$, t1 As Boolean, t2 As Boolean
Set p = Range("G11:G50")
With p
Set c = .Find(Commande, lookat:=xlWhole)
If Not c Is Nothing Then
t1 = True
Adresse = c.Address
Do
If c.Interior.ColorIndex = 43 Then
t2 = True
If MsgBox("voulez continuer a préparer la même commande", _
vbQuestion + vbYesNo, c & " trouvée en " & c.Address) = vbYes Then Exit Do
End If
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> Adresse
End If
End With
If Not t1 Then MsgBox "aucune commande correspondante trouvée !"
If Not t2 Then MsgBox "commande trouvée mais sans critère couleur !"
End Sub