Quelle erreur de compilation ?

Sub Alignement_dates()
Dim cellule, date_suivante, report_suivant, maplage, occurrence As Range
Dim DernLigne, DernCol As Variant
    DernLigne = Range("A" & Rows.Count).End(xlUp).Row
    DernCol = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
Set maplage = Range("V4:V" & DernLigne)

For Each cellule In maplage
     If Range("F" & cellule.Row).Value = Range("F" & cellule.Row).Offset(1, 0).Value _
    And Range("G" & cellule.Row).Value = Range("G" & cellule.Row).Offset(1, 0).Value _
    And Range("H" & cellule.Row).Value = Range("H" & cellule.Row).Offset(1, 0).Value _
    And Range("I" & cellule.Row).Value = Range("I" & cellule.Row).Offset(1, 0).Value _
    Then
     Set occurrence = Cells(cellule.Row, cellule.Column + 1)
        Do While _
        Range("F" & occurrence.Row).Value = Range("F" & cellule.Row).Value _
        And Range("G" & occurrence.Row).Value = Range("G" & cellule.Row).Value _
        And Range("H" & occurrence.Row).Value = Range("H" & cellule.Row).Value _
        And Range("I" & occurrence.Row).Value = Range("I" & cellule.Row).Value      'Fin du critère Do While
        
        cellule.Offset(0, 1).Value = Range("b" & cellule.Row + 1).Value
        Loop
    End If
Next
End Sub

Set Occurence = Intersect(Occurence.Worksheet.Rows(x), Occurence.EntireColumn)

Sub AlignementDates()
Dim Te(), Le&, Ce&, Ts(), Ls&, Cs&
Te = Feuil1.UsedRange.Value
ReDim Ts(1 To UBound(Te, 1), 1 To 100)
Ls = 1
For Le = 1 To UBound(Te)
   For Ce = 6 To 9
      If Te(Le, Ce) <> Te(Ls, Ce) Then Ls = Le: Cs = 0: Exit For
      Next Ce
   For Ce = 22 To UBound(Te, 2)
      If Not IsEmpty(Te(Le, Ce)) Then Cs = Cs + 1: Ts(Ls, Cs) = Te(Le, Ce)
      Next Ce
   Next Le
With Feuil1.Cells(1, 22).Resize(UBound(Ts, 1), 100)
   .Value2 = Ts: .NumberFormat = "m/d/yyyy h:mm": End With
End Sub