Copier-coller une colonne en sautant des lignes

Bonjour à tous,

Mon problème est assez simple je pense mais je n'arrive pas à le résoudre.

Je souhaites simplement récupérer les données d'une colonne en les insérant dans une autre, mais en faisant sauter une ligne à chaque fois. Je vous mets une photo en exemple, je pense que c'est plus parlant

Peut importe que ce soit sur la même feuille de calcul ou non.

Je vous remercie d'avance pour votre aide !

Bonne journée,

Robin

Bonjour,

Voilà pour les colonne A et B

Cordialement

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

Parfait !

Merci beaucoup à vous deux !

Bonne journée,

Robin