si la cellule contient un mot alors

Bonsoir tous et toutes,
Je voudrais creer une formule vba qui se resumerait ainsi :
" si la cellule A1 contient le mot ' ARRIVEE' alors inserer 1 colonne entre les colonnes A et B et inserer 1 colonne entre les colonnes D et E".
Pourriez vous m'aider..
Merci

PS :J'insiste sur le verbe 'contient' car la valeur de la cellule A1 est un ensemble de plusieurs mots dont le mot 'ARRIVEE'.

Code:

---

1 2 3 4

If InStr(UCase(Range("A1").Value), "ARRIVEE") > 0 Then Columns("E:E").Insert Columns("B:B").Insert End If

---

Bonjour mercatog
Et merci pour cette reponse, c'est parfait...:ccool: