Private Sub CommandButton1_Click()
Dim DerLigne As Long
With Sheets("Feuil2")
DerLigne = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Cells(DerLigne, 1) = Range("B1")
.Cells(DerLigne, 2) = Range("B2")
.Cells(DerLigne, 3) = Range("B3")
End With
End Sub