Worksheet_Change erreur

Bonjour,

Voici mon problème, je voudrais que la date du jour soit saisie en colonne K sur la même ligne de la cellule que je modifie dans mon tableau. Le code :

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
  Dim areaSource As Range
  Dim ThisRow As Long
  Dim i As Integer

  If Not Application.Intersect(Range("Criteres"), ListObjects(1).Range) Is Nothing Then
    Else
    Set areaSource = Worksheets("Tableau").ListObjects(1).Range
    areaSource.AdvancedFilter xlFilterInPlace, Range("Criteres")
    End If

  If Not Intersect(Target, Range("Tableau")) Is Nothing Then

    ThisRow = Target.Row

    Range("K" & ThisRow).Value = Date

    End If
Application.ScreenUpdating = True
End Sub

Cependant le code tourne en boucle sans s’arrêter je ne sais pas pourquoi avez vous une idée ?

Cordialement

Bonjour,

Inscrire une date dans la plage en question est un changement, la macro se relance donc elle-même.

Il faut désactiver les événements le temps d'inscrire la date :

Application.EnableEvents = False ' => désactive les événements
'Instructions
Application.EnableEvents = True ' => réactive les événements

Parfait merci beaucoup !