Bonjour labulle, bonjour le forum,
Si j'ai bien compris, essaie comme ça :
Sub Macro1()
Dim OS As Worksheet 'déclare la variable OS (Onglet Source)
Dim OD As Worksheet 'déclare la variable OD (Onglet Destination)
Dim PL As Range 'déclare la variable PL (PLage)
Dim DEST As Range 'déclare la variable DEST (cellule de DESTination)
Set OS = Worksheets("Feuil1") 'définit l'onglet OS
Set OD = Worksheets("Feuil2") 'définit l'onglet OD
Set PL = OS.Range("A3:A100") 'définit la plage PL
'définit la cellule de destination DEST (A1 si A1 est vide, sinon, la première cellule vide de la ligne 1 de l'onglet OD)
If OD.Range("A1").Value = "" Then Set DEST = OD.Range("A1") Else Set DEST = OD.Cells(1, Application.Columns.Count).End(xlToLeft).Offset(0, 1)
DEST.Resize(98, 1).Value = PL.Value 'renvoie dans DEST redimensionnée les valeurs de la plage PL
End Sub