Public Flag As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
If Flag Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Target.Column = 5 Then
nomD = Target.Offset(0, -1).Value: nomE = Target.Value
For lig = 7 To [E65000].End(3).Row - 1
If Cells(lig, 4) = nomD And Cells(lig, 5) = nomE Then
MsgBox ("Donn?e d?j? saisie" & " " & lig)
Application.EnableEvents = False 'emp?che de revenir
Target.ClearContents
Application.EnableEvents = True
End If
Next
End If
End Sub