Probleme SaveAsPDF

Salut, j'ai un problême lorsque je veux exécuter une macro à partir d'une valeur dans une cellule ... la macro ne fait rien du tout et jAvoue ne pas comprendre ma syntaxe me semble juste.

Sub ChoixPDFSaveAs()
Dim ChoixX$
ChoixX = Sheets("Feuil1").Range("D1").Value
If ChoixX = "FACTURE  n°" Then
Call SaveAsPDFNoPriceFacture
ElseIf ChoixX = "DEVIS  n°" Then
Call SaveAsPDFNoPriceDevis
End If
End Sub

Sub SaveAsPDFNoPriceFacture()
Call clearPrices
    Dim FName As Variant

    FName = Application.GetSaveAsFilename( _
        InitialFileName:="C:\Save_Devis_Excel\Facture\PDF\.pdf", _
        FileFilter:="PDF files, *.pdf", _
        Title:="Sauvegarder en PDF / prix masqués")
    If FName <> False Then
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FName _
            , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
            :=False, OpenAfterPublish:=True
    End If
    Call showPrices
End Sub
Sub SaveAsPDFNoPriceDevis()
Call clearPrices
    Dim FName As Variant

    FName = Application.GetSaveAsFilename( _
        InitialFileName:="C:\Save_Devis_Excel\Devis\PDF\.pdf", _
        FileFilter:="PDF files, *.pdf", _
        Title:="Sauvegarder en PDF / prix masqués")
    If FName <> False Then
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FName _
            , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
            :=False, OpenAfterPublish:=True
    End If
    Call showPrices
End Sub

Je peux vous assurer qu'une des deux valeurs est bien dans la cellule!