Insérer une ligne vide à chaque cellule non vide

[zayab]

Bonjour,
Je souhaite insérer une nouvelle ligne vide sous chacune des cellules non vides d'un tableau dont le nombre d lignes peut varier.
Après plusieurs tentatives et recherches, je sèche pour quelque chose qui à priori est simple non ?
Merci beaucoup d'avance pour votre aide
Un petit fichier joint pour être clair.

 

[zayab]

R bonjour en recherchant avec un autre mot clef "intercaler" , le post

Re : Comment intercaler deux à deux des lignes sous excel m'a fourni la solution en ajustant à mon besoin.
Merci MTH
Sub esv()
Dim i As Long
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
Rows(i).Insert Shift:=xlDown
Next i
End Sub

 

[sylvanu]

Bonjour Zayab,
Vous n'avez pas posté sur le bon forum. Les questions sont à poser dans
"https://excel-downloads.com/forums/forum-excel.7/"
ici vous êtres "Fonctions personnalisées VBA "

En PJ un essai avec :

Sub Transfert()
Application.ScreenUpdating = False
Dim T, Sortie, Ligne%, i%
[D3:D10000].ClearContents
DL = Range("A65500").End(xlUp).Row
T = Range("A3:A" & DL)
ReDim Sortie(1 To 2 * UBound(T), 1 To 1)
Ligne = 1
For i = 1 To UBound(T)
    Sortie(Ligne, 1) = T(i, 1)
    Ligne = Ligne + 2
Next i
[D3].Resize(UBound(Sortie, 1), UBound(Sortie, 2)) = Sortie
End Sub