Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Range, Plage As Range
Set Plage = Intersect(Target, Range([AG9], Cells(Rows.Count, "AG").End(xlUp)))
If Plage Is Nothing Then Exit Sub
For Each Cel In Plage
If IsDate(Cel) Then
With Sheets("Historique")
Rows(Cel.Row).Copy .Cells(Rows.Count, "A").End(xlUp)(2)
End With
End If
Next Cel
Application.CutCopyMode = False
End Sub