Ajout d'une ligne

Bonjour,

Dans le cadre d'un fichier de suivi de réception de document, je souhaite créer une macro VBA afin de pouvoir ajouter des lignes en dessous de lignes spécifiques représentant les potentiels indices de documents.

Il se peut que je reçoive 1 à 100 indices ainsi, je voudrais alléger la feuille excel et n'ajouter de ligne pour les indices qui si nécessaire.

Ainsi, sur ma ligne de document initial, j'ai ajouté une colonne à remplir en cas de nécessité d'ajouter une ligne d'indice = "o" à remplir si nécessaire.

J'ai écris un code qui ne fonctionne pas :

Sub INDICE_SUPP()
'
' Indice
'
Dim indice As Integer
Dim cellule As Integer

For i = 0 To 500
Worksheets(GENERAL).Activate
cellule = Range("M7 + i").Value
If cellule = "o" Then
Cells(cellule + 1, 1).EntireRow.Insert
Cells(7 + i + 1, 1).Value = "(7+i,1)" & ".1"
Next i
Worksheets(GENERAL).Activate

End Sub

Je souhaiterais que la colonne A de la ligne ajoutée prenne le nom de la ligne intiale avec ".1" et ainsi de suite pour les indices supplémentaires... .2, .3 etc...

Je ne sais pas comment mettre en œuvre ce code, pouvez-vous m'aider svp ?

Bonjour, merci pour votre retour.

Ca ne veut toujours pas:

Pourtant j'ai bien un For qui est en bleu ? Je ne comprends pas..

ta boucle de If n'est pas fermée avec End if