Rechercher 2 caractères dans une réf (cellule / colonne)

Bonjour,
Remplace la ligne de recherche des indicies par celle-ci

If VBA.Left(Range("A" & i + 1), 1) = Niveau And Mid(Range("A" & i + 1), 4, 1) * 1 = Secteur Then
1 « J'aime »