Private Sub CommandButton1_Click()
Dim row1 As Integer
Sheets("détails(1)").Activate
Sheets("détails(1)").Range("montant_situ1").Offset(-1, 0).Select
row1 = Selection.Row
Sheets("détails(1)").Range(Cells(9, 1), Cells(row1, 8)).Select
Selection.Copy
Sheets("Détails(2)").Range("A9").Insert shift:=xlDown
End Sub