Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'colonne à "surveiller" (ici colonne A)
If Target.Column = 1 Or Target.Column = 3 Then
' pour vérifier si la saisie n'existe pas déjà dans les lignes précédentes
' If Application.WorksheetFunction. _
' CountIf(Range(Cells(2, 1), _
' Cells(Target.Row, 1)), Target.Value) > 1 Then
' pour vérifier si la saisie n'existe pas déjà dans la colonne
If Application.WorksheetFunction. _
CountIf(Range(Cells(1, Target.Column), Cells(65536, Target.Column)), Target.Value) > 1 Then
MsgBox "le N° BIG existe déjà "
Target.Value = ""
Target.Select
End If
End If
End Sub