Option Explicit
Sub TestMot()
Dim MotCible As String
Dim Phrase As String
Dim Emplacement As Long
Phrase = Range("A1")
MotCible = Range("A2")
Emplacement = InStr(1, Phrase, MotCible)
If Emplacement > 0 Then
MsgBox "Trouvé dans la phrase au " & Emplacement & " caractère"
Else
MsgBox "Non présent dans la phrase"
End If
End Sub