Private Sub CommandButton1_Click()
With Me
TabBD = .ListBox1.List 'Ici on récupére les données de la ListBox1
End With
With Feuil2
For k = LBound(TabBD) To UBound(TabBD)
DerLgn = .Cells(.Rows.Count, 7).End(xlUp).Row + 1 'On détermine pour Chaque ligne du tableau la Ligne Cible
.Cells(DerLgn, 1) = TabBD(k, 7)
Next k
End With
Unload Me
End Sub