Bonjour,
Attache ce code à ton bouton et testes :
Sub Test()
Dim lgn As Integer
With ActiveSheet
lgn = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Range(.Cells(lgn, 1), .Cells(lgn, 8)).Value = .Range(.Cells(3, 1), .Cells(3, 8)).Value
.Cells(lgn, 11).Value = .Cells(3, 11).Value
End With
End Sub