Option Explicit
Dim Tab_Recup As Variant
Dim DerLgn_1 As Variant
Dim DerLgn_2 As Variant
Dim Dercol As Byte
Dim C As Long
Sub TestTransfert()
With Sheets("Index")
.Columns(1).ClearContents 'on efface les donnees
End With
With Sheets("Liste")
Dercol = .Cells(3, Columns.Count).End(xlToLeft).Column 'On determine la derniere Colonne de la Feuille "Liste"
For C = 1 To Dercol 'pour chacune de ces Colonnes
DerLgn_1 = .Cells(.Rows.Count, C).End(xlUp).Row 'on determine la derniere Ligne Non vide
' de cette Colonne en partant du bas
Tab_Recup = .Range(.Cells(4, C), .Cells(DerLgn_1, C)).Value 'on récupére les valeurs de la plage ainsi définie
DerLgn_2 = Sheets("Index").Cells(Sheets("Index").Rows.Count, 1).End(xlUp).Row + 1 'on determine la derniere Ligne Non vide
' de la premiere Colonne de la Feuille "Index" en partant du bas
Sheets("Index").Cells(DerLgn_2, 1).Resize(UBound(Tab_Recup, 1), 1) = Tab_Recup 'on redimmensionne la plage et on colle les données
Next C
End With
Set Tab_Recup = Nothing
End Sub