Sub RechercheMultiple()
Dim Cible As String
Dim i, j
Cible = "engrenage,reducteur,courroie"
tmp = Split(Cible, ",")
For i = LBound(tmp) To UBound(tmp)
j = j + InStr(Range("A1").Text, tmp(i))
Next i
If j = 0 Then
MsgBox "Non"
Else
MsgBox "Oui"
End If
End Sub