VBA - cherche un mot dans un phrase si present

bonjour

bien qu'encore novice en vba je commence a y prendre gout

voici ce que je souhaite faire

je cherche dans un texte le mot "ere" (1 ere ) mais celui ci n'est pas tjs present parfois il s'agit du mot "ieme" ( eme ) qui le remplace )

je pensais faire de cette façon >>

j'ai defni B comme une valeur

que je réutilise ensuite suivant que je trouve "ere" ou "eme" dans mon texte

Si dans mon texte je trouve "ere" alors B sera égale a " ere " sinon B =sera egale " eme "

pouvez vous me traduire cette dernière phrase en vba ?

voici mon bout de code

If InStr(1, phrase, "ère") > 0 Then

b = "ère>"

Else: b = "ème"

End If

Range("b5").Value = b

voici la soltuion que j'ai trouve

au lieu de vouloir redéfinir une variable B aves les conditions que j'utiliserai ensuite

j'ai cree une nouvelle variable que j'affiche si la condition A est rempli ou si elle n'est pas rempli

( oui mon explication est pas clair mais si le bout de code peux servir a un novice comme moi )

If InStr(k, phrase, "ère") > 0 Then

b = InStr(k, phrase, "ère") - 1

c = Mid(phrase, b, 1)

Range("b5").Value = c

Else

b = InStr(k, phrase, "ème") - 1

c = Mid(phrase, b, 1)

Range("b5").Value = c

End If