'--- entrer la donnée dans la 1 cellule de chque colonne seulemnt
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Row = 2 And Target.Column < 17 Then
Set c = Cells(3, Target.Column).Resize(10000).Find(What:=Target.Value, LookAt:=xlWhole)
If c Is Nothing Then
Cells(60000, Target.Column).End(xlUp).Offset(1, 0).Value = Target.Value
Else
If Target.Value <> "" Then CreateObject("Wscript.shell").Popup "Attention ,la donnée Existe déjà", 2, "SFE 2013" ' MsgBox "Attention , la donnée Existe déjà"
End If
Else
Cells(2, Target.Column).Value = "Saisir ici !"
CreateObject("Wscript.shell").Popup "Attention ,La donnée doit être entrée dans la cellule bleu", 2, "SFE 2013"
End If
Target.Value = ""
Application.EnableEvents = True
End Sub