[Résolu] Vérification dans une colonne de données déjà existante

Private Sub CommandButton3_Click()
ActiveWorkbook.Sheets("Lieu de stockage").Activate
' -------------------------------------------------------------------
Dim cellule As Range
For Each cellule In Range("A1:A" & Range("A65536").End(xlUp).Row)
If cellule = txt_Resultat Then
MsgBox ("Cette donnée existe déjà")
Exit Sub
End If
Next cellule
' --------------------------------------------------------------------
Dim DernLigne As Long
DernLigne = Range("A" & Rows.Count).End(xlUp).Row 'on cherche la dernière cellule non vide
DernLigne = DernLigne + 1 'DernLigne+1 est donc la première celulle vide

Range("A" & DernLigne) = txt_Resultat

Selection.AutoFilter
Range("A1").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

End Sub