Bonjour Le fil, bonjour le forum,
Une autre méthode que celle de Bd'A très rapide sur des grands tableaux :
Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim TL() As Variant 'déclare la variable TV (Tableau des Lignes)
Dim I As Integer 'déclare la variable I (Incrément)
Dim J As Integer 'déclare la variable J (incrément)
Set O = Worksheets("Feuil1") 'définit l'onglet O
DL = O.Cells(Application.Rows.Count, "A").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne A de l'onget O
TV = Range("A1:A" & DL) 'définit le tableau des valeurs TV
J = 1 'initialise la variable J
For I = 1 To UBound(TV, 1) 'boucle sur toutes les lignes I du tableau des valeurs TV
ReDim Preserve TL(J) 'redimensionne le tableau des lignes TL
TL(J - 1) = TV(I, 1) 'récupère la valeur de la donnée ligne I de TV dans le tableau des lignes TL
TL(J) = "" 'rajoute une valeur vide dans le tableau des lignes TL
J = J + 2 'incrément J de 2
Next I 'prochaine ligne de la boucle
O.Range("B1").Resize(UBound(TL, 1), 1).Value = Application.Transpose(TL) 'renvoie dans B1 redimensionnée le tableau TL transposé
End Sub