Private Sub CommandButton1_Click()
Dim copie As Worksheet, vers As Worksheet, derligne As Long
Set copie = ActiveSheet
derligne = copie.Range("B" & copie.Rows.Count).End(xlUp).Row
Set vers = ThisWorkbook.Sheets("coller")
copie.Range("B2").Resize(derligne, 6).Copy vers.Range("a" & vers.Rows.Count).End(xlUp)(2)
End Sub