Creer des PDF suivant conditions dans userforms

Sub Go()
    Dim nbrLignes As Long
    
    ' On trie la feuille selon la colonne C
    Cells.Select
    Selection.Sort Key1:=Range("C2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    
    nbrLignes = Cells(Rows.Count, 3).End(xlUp).Row
    
    ' On charge la comboBox1 avec les données de la colonne C
    UserForm1.ComboBox1.AddItem Cells(2, 3)
    For y = 3 To nbrLignes
        If Cells(y, 3) <> Cells(y - 1, 3) Then UserForm1.ComboBox1.AddItem Cells(y, 3)
    Next y
    
    ' On trie la feuille selon la colonne A
    Cells.Select
    Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

    ' On charge la comboBox2 avec les données de la colonne A
    UserForm1.ComboBox2.AddItem Cells(2, 1)
    For y = 3 To nbrLignes
        If Cells(y, 1) <> Cells(y - 1, 1) Then UserForm1.ComboBox2.AddItem Cells(y, 1)
    Next y
    
    ' On trie la feuille selon les n° de client comme elle était au départ
    Cells.Select
    Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

    
    UserForm1.Show
End Sub

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\moi\Desktop\Impressions\" & ComboBox1.Value & "\" & ComboBox2.Value & "\Client " & Feuil2.Range("B1").Value & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False