Bonjour,

Je souhaite créer une macro qui permet d’insérer un certain nombre de lignes et de copier/coller automatique les réponses de la façon suivante:

Donnée existante: Question 1 | réponse 1 | réponse 2 | réponse 3 | réponse 4 | réponse 5

Macro à créer : Question 1 | réponse 1
Question 1 | réponse 2
Question 1 | réponse 3
Question 1 | réponse 4
Question 1 | réponse 5

Cette opération doit se faire que pour certaines questions à intervalles réguliers et non sur la totalité.
En terme de ligne excel par exemple : Ligne 5 - ligne 15 - ligne 25 - ligne 35

Voici ma macro:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Insertionsligne()
Application.ScreenUpdating = False
For i% = 56 To 60 Step 5
Rows(i & ":" & i + 3).Insert shift:=xlDown
Range("B" & i - 1 & ":" & "C" & i - 1).Copy
Range("B" & i).Activate
ActiveSheet.Paste
Range("B" & i - 1 & ":" & "D" & i - 1).Copy
Range("B" & i + 1).Activate
ActiveSheet.Paste
Range("B" & i - 1 & ":" & "E" & i - 1).Copy
Range("B" & i + 2).Activate
ActiveSheet.Paste
Range("B" & i - 1 & ":" & "F" & i - 1).Copy
Range("B" & i + 3).Activate
ActiveSheet.Paste
Next
End Sub
Le résultat me donne ça:

Donnée existante: Question 1 | réponse 1 | réponse 2 | réponse 3 | réponse 4 | réponse 5

Macro réalisée : Question 1 | réponse 1
Question 1 | réponse 1 | réponse 2
Question 1 | réponse 1 | réponse 2 | réponse 3
Question 1 | réponse 1 | réponse 2 | réponse 3 | réponse 4
Question 1 | réponse 1 | réponse 2 | réponse 3 | réponse | réponse 5

De plus, je ne sais absolument pas comment créer une récurrence sur cette opération, comme indiqué précédemment.

Merci par avance pour vos conseils.