Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 6 Then Exit Sub
If Application.WorksheetFunction.CountIf(Columns(6), Target.Value) > 1 Then
Target.Clear
MsgBox "Valeur non valide ! Existe déjà dans la colonne."
Target.Select
End If
End Sub