Blocage ligne 230

Bonjour,

j'utilise actuellement ce code VBA pour remplir automatiquement une feuille afin de voir les modif effectué:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'If Sh.Name <> "Espion" Then
If Sh.Name = "Planning" Then 'il me semble que c'est cette feuille qui est concernée !?
Application.EnableEvents = False
Dim Dat As Date, Lig&, DernLig&
Dat = Cells(Target.Row, 1) 'check la date dans la 1'col
ValSaisie = Target
Application.Undo 'annuler la modification
Lig = Application.CountA(Sheets("Modif Data").Range("a:a")) + 1
Sheets("Modif Data").Cells(Lig, 1) = Sh.Name
Sheets("Modif Data").Cells(Lig, 2) = Target.Address
Sheets("Modif Data").Cells(Lig, 3) = Now
Sheets("Modif Data").Cells(Lig, 4) = Target
Sheets("Modif Data").Cells(Lig, 5) = ValSaisie
Sheets("Modif Data").Cells(Lig, 6) = Environ("username")
Application.Undo 'Annuler l'annulation
'colle la date dans "Modif"
DernLig = Sheets("Modif").Columns(2).Rows(Rows.Count).End(xlUp).Row 'd'une colonne (haut<bas)
Sheets("Modif").Cells(DernLig + 1, 2) = Dat
Application.EnableEvents = True
End If
End Sub


Le code VBA fonctionne bien par contre, il s'arrête sur le remplissage automatique de la feuille espion à la ligne 230.

Avez vous une idée?

Cordialement