Rechercher une valeur

Je cherche une macro qui me permettrait de chercher la cellule dans laquelle le mot "hello" apparaît et d'insérer le mot "oui" dans la cellule qui se trouve à droite de celle-ci.

Je veux que la recherche s'effectue entre A1 et A10.

Bonsoir,

Sub essai()
Dim c As Range
    For Each c In Range("a1:a10")
        If UCase(c) Like "*HELLO*" Then
            Range(c.Address).Offset(, 1) = "oui"
        End If
    Next
End Sub

Amicalement

Claude

Merci !