Deplacement ligne excel

Option Explicit
'-----
Sub deplacer_si_dateC()
Dim Derlig As Long, T_lig, Lig As Integer

Application.ScreenUpdating = False
With Sheets(1)
    Derlig = .Columns("C").Find("*", , , , , xlPrevious).Row
    For Lig = 2 To Derlig
        If IsDate(.Cells(Lig, "C")) Then
            T_lig = .Range(.Cells(Lig, "A"), .Cells(Lig, "F"))
            Sheets(2).Cells(Lig, "A").Resize(1, 6) = T_lig
            .Cells(Lig, "C") = ""
        End If
    Next
    
    On Error GoTo vide
   .Range("C2:C" & Derlig).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
Sheets(2).Activate
Exit Sub

vide:
MsgBox "aucune date dans colonne C", vbCritical
End Sub