Espacement régulier entre des cases

Bonjour à tous !

D'avance merci pour l'aide que vous pourrez m'apporter :)

Voilà, j'ai une liste de valeurs dans une colonne. Celles-ci sont successivement dans les cases A1, A2 ...

Je souhaiterais créer un espacement régulier entre chacune des valeurs de 4 cases. Je pourrais le faire à la main si je n'avais pas 3000 valeurs mais là

Merci d'avance de votre aide !

Bonjour,

Je ne suis pas certain que la demande soit très claire. Je ne la comprends pas tout du moins.

Pourrais-tu être plus explicite ?

Salut SoCRack,
Re, JoyeuxNoël,

une insertion de lignes entre les valeurs, sans doute... ?
Un double-clic sur la feuille démarre la macr

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
Cancel = True
Application.ScreenUpdating = False
'
For x = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
    Rows(x & ":" & x + 2).Insert shift:=xlDown
Next
'
Application.ScreenUpdating = True
'
End Sub

A+

Merci Curulis, ça fonctionne :)

@JoyeuxNoel désolé si ça manqué de clarté, j'aurais du mettre un fichier exemple directement.