XL 2010 VBA bouton impression sur plusieurs onglets

Sub imprim()
    Dim nom$
    With ActiveSheet
        ' Pour vérifier quelle feuille est en conversion PDF
        MsgBox "Feuille en cours : " & ActiveSheet.Name
        
        nom = .Cells(1, 2) & "\" & .Cells(3, 2) & "  " & Format(.Cells(2, 2), "dd-mm-yyyy") & ".pdf"
        .ExportAsFixedFormat Type:=xlTypePDF, Filename:=nom, _
                        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
                        IgnorePrintAreas:=False, OpenAfterPublish:=False
    End With
    MsgBox "Factura a fost salvata sub " & nom, , "PRINT TERMINAT"
End Sub