sortir de la macro si la valeur recherchée n'est pas présente

[pascal21]

bonjour le forum

Private Sub Label1_Click()
ActiveSheet.Range("$a$1:$a$15900").AutoFilter Field:=1, Criteria1:=Label1.Caption
End Sub

je récupère dans le label1 une valeur
en cliquant sur ce label j'ai un tri qui se fait dans la colonne A avec le caption du label1
je cherche le code qui permet de sortir de la macro si la valeur recherchée n'est pas présente
merci de votre aide

 

[youky(BJ)]

Bonjour Pascal,
Bruno

ActiveSheet.Range("$a$1:$a$15900").AutoFilter Field:=1, Criteria1:=Label1.Caption
If Application.Subtotal(3, [A:A]) < 2 Then Exit Sub

 

[pascal21]

ok merci