Trouver une valeur dans une cellule

Hey salut le forum, c'est encore moi, j'ai besoin de savoir si l'on peut trouver une valeur dans une cellule avec la fonction If_Then

Quelque chose qui ressemble à ça :

Sub Prog1()
    If  (Dans Activecell.Value, "Valeur" est trouvée ) Then
        MsgBox "Valeur trouvée"
    Else 
        MsgBox "Valeur non trouvée"
    End If
End Sub

(Re)bonjour,

Par exemple :

If Cellule.Value Like "*valeur*" Then 'Instruction(s)

(Encore une fois) Merci beaucoup, tu gères

Merci de ton retour !