Fonction split

Bonjour,

Je viens de découvrir la fonction SPLIT...

Afin de créer des filtres par le biais de VBA
J'ai créer un programme terminant par :


If Cells(8, 9).Value <> FAUX Then
A = "MANO"
Filtre = True
End If

If Cells(9, 9).Value <> FAUX Then
B = "RD"
Filtre = True
End If

Sheets("CR").Select
If Filtre = True Then
Critere = Split(A & "," & B, ",")
ActiveSheet.Range("$A$1:$C$4222").AutoFilter Field:=3, Criteria1:=Critere, Operator:=xlFilterValues

Le programme fonctionne, mais je voudrais juste rallonger la liste des critères.
J'aimerais rajouter des lettres de (A jusqu'à H) dans ma fonction SPLIT, j'ai beau tout essayer mais rien ne marche, quelqu'un pourrait m'aider ?

Merci d'avance :)