Nombre de répétition d'un mot dans une cellule

Bonjour à tous,

Je crée un code qui regarde à l'intérieur des cellules d'une colonne pour voir si le mot option si trouve.

Si oui, une ligne se rajoute automatique en dessous de la cellule.

J'aimerais savoir s'il est possible de regarder s'il y a plusieurs fois le mot option dans la cellule et d'ajuster le nombre de ligne

ajouté en conséquence.

Par exemple, si il y a 3 fois le mot Option dans la cellule, alors je rajoute trois lignes en dessous.

J'utilise présentement le code suivant :

For i = 1 to derlig
        If InStrRev(celltxt, "option") Then

            Feuil1.Cells(i + 1, 4).Select
            Selection.EntireRow.Insert
            i = i + 1                                 ' pour éviter d'entrer dans une boucle sans fin.

        End If
next

Quelqu'un à une idée ?

Merci d'avance

Bonjour Martin, bonjour le forum,

Peut-être comme ça :

For i = derlig To 1 Step -1
    For NF = 1 To UBound(Split(celltxt, "option"))
        Feuil1.Cells(i + 1, 4).EntireRow.Insert
    Next NF
Next i