Bonjour à tous,
je souhaite insérer 10 lignes vierges toutes les 4 lignes, à partir de A2 (la ligne 1 contenant mes titres de colonnes). J'avais trouvé à une époque un code qui insérait une ligne toutes les 5 lignes à partir de A1 ( qui correspondait à ce que je voulais faire à cette époque) mais je n'arrive pas à le modifier pour obtenir le résultat attendu et je n'arrive pas non plus à trouver une réponse dans le forum.
Pourriez vous m'aider svp?
Merci
Sub InsereLign()
Dim Plage As Range
Dim L As Long
Application.ScreenUpdating = False
Set Plage = Rows(6)
For L = 11 To 2250 Step 5
Set Plage = Application.Union(Plage, Rows(L))
Next L
Plage.Insert Shift:=xlDown
Application.ScreenUpdating = True
MsgBox "Insertion terminée !"
End Sub
je souhaite insérer 10 lignes vierges toutes les 4 lignes, à partir de A2 (la ligne 1 contenant mes titres de colonnes). J'avais trouvé à une époque un code qui insérait une ligne toutes les 5 lignes à partir de A1 ( qui correspondait à ce que je voulais faire à cette époque) mais je n'arrive pas à le modifier pour obtenir le résultat attendu et je n'arrive pas non plus à trouver une réponse dans le forum.
Pourriez vous m'aider svp?
Merci
Sub InsereLign()
Dim Plage As Range
Dim L As Long
Application.ScreenUpdating = False
Set Plage = Rows(6)
For L = 11 To 2250 Step 5
Set Plage = Application.Union(Plage, Rows(L))
Next L
Plage.Insert Shift:=xlDown
Application.ScreenUpdating = True
MsgBox "Insertion terminée !"
End Sub