Problème avec une macro

Bonjour

J'ai une macro qui selon la cellule A2 affiche les lignes qui contiennent cette valeur.

Sub afficher()
If Range("A2").Value <> "" Then
ActiveSheet.Range("$A$3:$A$50").AutoFilter Field:=1, Criteria1:=Range("A2").Value
End If
End Sub

Dans la cellule A2 j'ai ajouté dans la liste déroulante le text "tout"

je n'arrive pas à formuler le code pour que lorsque "tout" apparait toutes les ligne s'affichent.

SAlutations

bonjour,

essaie ceci

Sub afficher()
    If Range("A2").Value <> "" Then
        If Range("A2") = "tout" Then
            ActiveSheet.Range("$A$3:$A$50").AutoFilter
        Else
            ActiveSheet.Range("$A$3:$A$50").AutoFilter Field:=1, Criteria1:=Range("A2").Value
        End If
    End If
End Sub

Bonjour h2so4

Merci pour le code je le test immediatement