Microsoft 365 Problème dans formule VBA

if range("C" &target.row+1)="DATE DE RESA" then
   lig=target.row+1
else
   lig=target.row+2
end if

Private Sub Worksheet_Change(ByVal Target As Range)
Dim DtMod, TDatM(), C&, M&, TMois(1 To 1, 1 To 12)
    If Intersect([D:BM], Target) Is Nothing Or Range("C" & Target.Row) = "DATE DE RESA" Then Exit Sub
    
    If Not IsEmpty(Target(1, 1).Value) Then DtMod = Date
    
    'recherche de la ligne de date==> ici, on présume qu'il n'y a QUE 2 lignes (+1 pour la date) par établissement
    If Range("C" & Target.Row + 1) = "DATE DE RESA" Then
       lig = Target.Row + 1
       off = 1
    Else
       lig = Target.Row + 2
       off = 2
    End If

    DtMod = Date 'je ne vois pas l'intérêt de passer par une variable...
    
    If Range("C" & lig) <> "DATE DE RESA" Then Exit Sub 'cas ou on a inscrit du texte entre les etablissements

    Application.EnableEvents = False
    
    Target.Offset(off, 0) = IIf(Target(1, 1).Value = "", "", DtMod) 'permet d'effacer la date si on efface l'intitulé ==> Quid du cas où il y a deux réservations la meme nuit?
    
    TDatM = Intersect([D:BM], Target.Offset(off).EntireRow).Value
    For C = 1 To UBound(TDatM, 2) 'compte le nombre de date par mois
        If IsDate(TDatM(1, C)) Then
            M = Month(TDatM(1, C))
            TMois(1, M) = TMois(1, M) + 1
        End If
    Next C
        
    [CE:CP].Rows(Target.Row - (2 - off)).Value = TMois 'on colle le tableau à la bonne ligne
    Application.EnableEvents = True
End Sub