Macro incrémentation

[Famu]

Bonjour,
Un petit soucci, je n'arrive pas à réaliser la macro (avec un compteur For et Next) qui me permetrait de passer de :

9530300000
9530300100
9530300101
9530300102
9530300103
9530300104
à:
9530300000
cellule vide
cellule vide
cellule vide
9530300100
cellule vide
etc...

9530300101



9530300102



9530300103



9530300104


Merci pour votre aide,
Famu

 

[porcinet82]

Salut Famu,

Pas sur d'avoir bien compris ce que tu demandes, mais je tente quand meme ma chance. La macro suivante insert 3 lignes entre chaques enregistrements.

Sub ajoute_ligne()
Dim i As Byte, k As Byte

For i = 1 To (Range('A65536').End(xlUp).Row * 4) Step 4
    For k = 1 To 3
        Rows(i + k).Insert
    Next k
Next i
End Sub

@+