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