Option Explicit
Sub Ouvrir()
On Error GoTo ErrX
Dim chn$: chn = InputBox("saisir A ou B :", "Choix du critère")
If chn <> "" Then Workbooks.Open "C:\Users\A-Jelil\Documents\" _
& IIf(chn = "A", "Classeur-A", "Classeur-B") & ".xlsm"
Exit Sub
ErrX:
MsgBox "Critère ou nom de classeur non valide." & vbLf _
& "Vérifier aussi le chemin du classeur.", 48, "Erreur"
End Sub