Sub test1()
Dim LigneHisto As Long
Application.ScreenUpdating = False
With Sheets("Actuel")
If .Range("A" & .Rows.Count).End(xlUp).Row <= 4 Then Exit Sub
LigneHisto = Sheets("Historique_").Range("A" & .Rows.Count).End(xlUp).Row
Sheets("Historique_").Range("A" & LigneHisto + 1).Value = Date
.Range("A4").CurrentRegion.Copy Sheets("Historique_").Range("A" & LigneHisto + 2)
.Range("A4").CurrentRegion.Offset(1, 0).ClearContents
End With
Application.ScreenUpdating = True
End Sub