Worksheets("QA - HPBFULL").Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\maisonmoi\SkyDrive\RMA Checklists\Checklist " & UserFormQAHPB.TextBox1.Text & " - " & UserFormQAHPB.TextBox2.Text & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
MsgBox "Enregistrement effectué avec Succès!"
Unload UserFormQAHPB