Suppression ligne après couper/coller

 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


dernLigne = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Count - 1

Application.ScreenUpdating = False

For i = dernLigne To 1 Step -1

If Application.WorksheetFunction.CountA(Rows(i)) = 0 Then
Rows(i).Delete Shift:=xlUp
End If
Next i

End Sub