Private Sub Déclaration_Click()
[B]'récupérer la première ligne libre de la feuille "Archive BAT"
With ThisWorkbook.Sheets("Archive BAT")
lastLine = .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).Row
End With[/B]
With ThisWorkbook.Sheets("Déclaration BAT")
ThisWorkbook.Sheets("Archive BAT").Cells([B]lastLine[/B], 1).Value = .Range("A4").Value
ThisWorkbook.Sheets("Archive BAT").Cells([B]lastLine[/B], 2).Value = .Range("B4").Value
ThisWorkbook.Sheets("Archive BAT").Cells([B]lastLine[/B], 3).Value = .Range("C4").Value
ThisWorkbook.Sheets("Archive BAT").Cells([B]lastLine[/B], 4).Value = .Range("D4").Value
ThisWorkbook.Sheets("Archive BAT").Cells([B]lastLine[/B], 5).Value = .Range("E4").Value
ThisWorkbook.Sheets("Archive BAT").Cells([B]lastLine[/B], 6).Value = .Range("F4").Value
ThisWorkbook.Sheets("Archive BAT").Cells([B]lastLine[/B], 7).Value = .Range("G4").Value
ThisWorkbook.Sheets("Archive BAT").Cells([B]lastLine[/B], 8).Value = .Range("H4").Value
ThisWorkbook.Sheets("Archive BAT").Cells([B]lastLine[/B], 9).Value = .Range("I4").Value
ThisWorkbook.Sheets("Archive BAT").Cells([B]lastLine[/B], 10).Value = .Range("J4").Value
ThisWorkbook.Sheets("Archive BAT").Cells([B]lastLine[/B], 11).Value = .Range("K4").Value
ThisWorkbook.Sheets("Archive BAT").Cells([B]lastLine[/B], 12).Value = .Range("L4").Value
ThisWorkbook.Sheets("Archive BAT").Cells([B]lastLine[/B], 13).Value = .Range("M4").Value
ThisWorkbook.Sheets("Archive BAT").Cells([B]lastLine[/B], 14).Value = .Range("N4").Value
End With
End Sub