Insertion ligne sous conditions avec une boucle

Bonjour,

Je suis plus que novice en VBA aussi je vous remercie par avance pour votre indulgence si mon problème vous semble déjà résolu ou si le bout de code que j'ai écrit n'est pas du tout en accord avec les bonnes pratiques du VBA !

J'ai bien regardé si mon problème avait déjà été traité auparavant mais impossible de trouver la réponse à ma question, je n'arrive pas à adapter les solutions à mon problème particulier.

Donc voilà dans le fichier Excel joint, un tableau est alimenté par une macro qui copie / colle. Celle-là fonctionne.

J'aurais maintenant besoin d'insérer des lignes en dessous de chaque question. La première question sera sur la ligne 14. Il peut y avoir 1 question comme 100 d'où le besoin d'une boucle.

J'ai bien tenté d'écrire un petit code mais je n'arrive pas à incrémenter la boucle pour que la ligne s'insère en dessous des questions.

Par avance merci pour votre aide,

Cordialement,

bonjour,

Sub Macro1()
Dim LastRw As Long, i As Long
LastRw = Cells(Rows.Count, 3).End(xlUp).Row - 1
For i = LastRw To 14 Step -1
  Rows(i + 1 & ":" & i + 2).Insert Shift:=xlDown
Next
End Sub

Bonjour,

ça fonctionne nickel ! Mille mercis de votre aide !!!!

Cordialement,