Macro pour sauter une ligne à tous les trois ligne

[Doune]

Bonsoir

J'aimerais savoir s'il est possible d'avaoir une macro qui me ferait un saut d'une ligne à tous les deux lignes (ou trois)?

ex:
1
2
3
4

Jaimerais avoir
1
espace
espace
2
espace
espace...

:whistle:

 

[myDearFriend!]

Bonsoir Doune,

Si j'ai bien compris le problème, tu peux essayer la procédure ci-dessous :

Sub Traitement()
Dim DernLig As Long, L As Long
      Application.ScreenUpdating = False
      With Sheets('Feuil1')
            DernLig = .Range('A65536').End(xlUp).Row + 1
            For L = DernLig To 3 Step -1
                  .Rows(L - 1 & ':' & L).Insert Shift:=xlDown
            Next L
      End With
      Application.ScreenUpdating = True
End Sub

Cordialement,

 

[Doune]

Mon cher Didier

Vous êtes magnifique, c'est exactement ce que je voulais. Un gros merci

Doune de Chambly au Québec