Private Sub Worksheet_Activate()
tablo = Range("D1:D3000")
For n = 7 To UBound(tablo, 1)
If tablo(n, 1) = "vérifiée" Then
Application.EnableEvents = False
Rows(n).Value = Rows(n).Value
Application.EnableEvents = True
End If
Next
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D7:D3000")) Is Nothing Then
If Target.Value = "vérifiée" Then
Application.EnableEvents = False
Rows(Target.Row).Value = Rows(Target.Row).Value
Application.EnableEvents = True
End If
End If
End Sub
[/cxode]
et dans un module general
[code]
Sub retour()
Application.EnableEvents = True
End Sub