Problème dans worksheet_change

Bonjour,

J'ai écrit ces quelques lignes de code pour que la valeurs des cellules de ma colonne "dernière modification" se mettent à jours automatique dès qu'une cellule est modifiée à l'intéreur de mon tableau :

Dim i As Integer

    i = Target.Row

    If Target.Column > 2 And Target.Row > 4 And temp <> Target.Value Then
        Cells(i, 2).Value = Date
    End If

Seulement lorsque je fais des modifications sur une ligne entière ou sur colonne entière le programme plante. J'ai ma petite idée sur le fait que target.column ou target.row n'a plus une valeur fixe mais je ne sais pas comment je pourrais remédier à ce problème. Si quelqu'un aurait une idée, cela me serait d'une grande aide.

Merci d'avance,

Quickness

Bonjour

Vérifies si ce code correspond à ce que tu attends

Option Compare Text
Option Explicit
Public temp As Variant

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Range

  For Each Cel In Target
    If Cel.Column > 2 And Cel.Row > 4 And temp <> Cel.Value Then
      Cells(Cel.Row, 2).Value = Date
    End If
  Next Cel
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  temp = Target.Cells(1, 1).Value
End Sub

Super ! Pas d'erreur sur la manip qui me faisait planter donc je pense que c'est bon

Merci beaucoup