Tester la présence d'une valeur dans une colonne

Sub Test()

Dim Valeur_Test As String
Dim DerniereLigne As Integer
Dim Lig

Valeur_Test = Cells(1, 3).Value 'La valeur qu'on souhaite tester

DerniereLigne = Cells(65536, 1).End(xlUp).Row 'On va aller trouver la dernière ligne de la colonne A

'On va voir si on trouve la valeur testée.
Set Lig = Range(Cells(1, 1), Cells(DerniereLigne, 1)).Find(Valeur_Test, LookIn:=xlValues, LookAt:=xlWhole)
If Not Lig Is Nothing Then
    Exit Sub 'Si on la trouve, alors on sort de la macro
Else
    Cells(DerniereLigne + 1, 1).Value = Valeur_Test 'Sinon, on l'ajoute à la liste.
End If


End Sub

Sub Test()

Dim Valeur_Test As String
Dim DerniereLigne As Integer
Dim Lig

Valeur_Test = Cells(Cells(65536, 1).End(xlUp).Row, 3).Value 'La valeur qu'on souhaite tester

DerniereLigne = Cells(65536, 1).End(xlUp).Row 'On va aller trouver la dernière ligne de la colonne A

'On va voir si on trouve la valeur testée.
Set Lig = Range(Cells(1, 1), Cells(DerniereLigne, 1)).Find(Valeur_Test, LookIn:=xlValues, LookAt:=xlWhole)
If Not Lig Is Nothing Then
    Cells(Cells(65536, 1).End(xlUp).Row, 3).Select
Else
    Cells(DerniereLigne + 1, 1).Value = Valeur_Test 'Sinon, on l'ajoute à la liste.
    Cells(Cells(65536, 1).End(xlUp).Row + 1, 3).Select
End If


End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$1" Then
        If Application.WorksheetFunction.CountIf([A:A], UCase(Target.Value)) = 0 Then
            Cells(Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row, 1) = Target.Value
        End If
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$D$4" Then
        If Application.WorksheetFunction.CountIf([A:A], UCase(Target.Value)) <> 0 Then
        Target.Cells = ""
        Range("D4").Select
        MsgBox ("Déjà utilisé !")
        Exit Sub
        ElseIf Application.WorksheetFunction.CountIf([A:A], UCase(Target.Value)) = 0 Then
            Cells(Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row, 1) = Target.Value
            Cells(Sheets("Feuil1").Range("b1000").End(xlUp).Row + 3, 7) = Target.Value
            Range("D4").Select
        End If
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address <> "$D$4" Or Target.Count > 1 Then Exit Sub
  If Target = "" Then Exit Sub 'pour éviter des appels successifs
  Dim Dli As Long
  Dli = Cells(Rows.Count, 1).End(xlUp).Row
  If Application.CountIf(Range("A1:A" & Dli), Target) > 0 Then
    MsgBox Target & " est déjà dans la liste", vbInformation, "pas accepté :"
    Target = ""
  Else
    Cells(Dli + 1, 1) = Target
    Cells(Sheets("Feuil2").Range("B1000").End(xlUp).Row + 3, 7) = Target
    '----- OU, pour écrire en Feuil2
    'With Sheets("Feuil2")
    '  .Cells(.Range("B1000").End(xlUp).Row + 3, 7) = Target
    'End With
  End If
  Target.Select
End Sub