Saisie doublon

 If Target.Column = 1 Then

 If Target.Column = 1 And Target.Count = 1 Then

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim i&
 'colonne à "surveiller" (ici colonne A)
 If Target.Column = 1 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
      For i = 1 To Target.Count
        If Application.WorksheetFunction. _
            CountIf(Range("A:A"), Target(i).Value) > 1 Then
                MsgBox "Number has been used -- Try again"
                Target(i).Value = ""
                If Target.Count = 1 Then Target.Select
        End If
    Next i
 End If
 End Sub