XL 2016 Macro export pdf ne fonctionne pas

Bonjour le Forum
Ma macro pour exporter ma plage de cellule au format pdf pose un probleme. Veuillez inspecter mon code pour m'aider à résoudre ce problème.
Et si possible j'en suis sur me proposer plus simple.

Private Sub Sauvegarder_Reinitialiser_RCM_Click()
Application.ScreenUpdating = False

With Sheets("RCM")
If .[K4].Value = 0 Then MsgBox " Veuillez Renseigner le Stock Disponible ", 64: Exit Sub
If .[M4].Value = 0 Then MsgBox " Veuillez Renseigner la Qt? command?e ", 64: Exit Sub

If MsgBox("Sauvegarder et Reinitialiser le RCM ? ", vbYesNo + 32) = vbYes Then

'Filtrer les Donn?es

.Range("$O$5:$P$121").AutoFilter Field:=2, Criteria1:="<>0", _
Operator:=xlAnd

'Creer Dossier RCM Pour enregistrer la sauvegarde

chemin = ThisWorkbook.Path & "\RCM\"
If Dir(chemin, vbDirectory) = "" Then MkDir chemin

'Exporter au format PDF

fichier = .Range("E3") & "-" & "RCM REC"
.PageSetup.PrintArea = .Range("A1122").Address
.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
chemin & fichier, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Selection.AutoFilter

'Reinitialiser

.[M6:M121] = ""
.[F6:F121] = ""
.[I6:I121] = ""
.[E6:E121].Value = [K6:K121].Value
Application.ScreenUpdating = True
End If
End With
End Sub