Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column < 5 Then
If Application.WorksheetFunction. _
CountIf(Columns(Target.Column), Target.Value) > 1 Then
MsgBox "Vous avez déjà saisi ce numéro -- recommencer"
Target.Value = ""
Target.Select
End If
End If
End Sub