Filtrer VBA chaine de carcatère variable

Question

Bonjour, j'ai un tableau à filtrer. Par exemple avec l'enregistreur de macro qui fonctionne le Criteria1:=Array("51", "52") pour la fonction AutoFilter

Mais je voudrait définir mon filtre avec une chaine de caractère L

    For I = 51 To 74:
        If Sheets("MACRO").Range("CB" & I) = True Then
            L = L & Chr(34) & I & Chr(34) & Chr(44) & " "
        End If
    Next

    L = Left(L, Len(L) - 2)

En gros à la fin de ce code L = "51", "52" mais Criteria1:=Array(L) ne fonctionne pas

En espérant avoir été clair :)

Bien cordialement

h2so4 · Accepted Answer

Adapte ton code ainsi (non testé) For I = 51 To 74: If Sheets("MACRO").Range("CB" & I) = True Then L = L & I & "," End If Next tabcrit = Split(Left(L, Len(L) - 1), ",") et utilise la syntaxe suivante Criteria1:=tabcrit...