Je copie le contenu d'une cellule dans une colonne X. Comment faire pour vérifier que cette valeur n'existe pas déjà dans cette colonne X et dans ce cas trouver la 1ère cellule vide, pour y copier cette valeur.

sub Ajout_dans_colonne()
  Val_Ch = "zaza"
  ' recherche l'existence de Val_Ch dans la colonne C
  n = EQUIVAL(Val_Ch, [C:\C], 0)
  ' NOTA : on peut aussi écrire   n = EQUIVAL(Val_Ch, Columns(3), 0)
  If n = 0 Then
    ' valeur non trouvée ==> ajouter à la fin
    Range("C:\C").End(xlDown)(2) = Val_Ch
  End If
 end sub

Function EQUIVAL(Val_Ch As Variant, Tableau As Range, Mode_Rech As Integer)As Variant
  ' fonctionnement identique à la fonction EQUIV de feuille de calcul
  EQUIVAL = 0
  On Error Resume Next
  EQUIVAL = Application.WorksheetFunction.Match(Val_Ch, Tableau, Mode_Rech)
  On Error GoTo 0
 End Function