c'est difficile pour savoir où la mise en page est modifiée. Donc un contournement avec un graph.
Sub Test()
Dim sFichier, sNom
sFichier = InputBox("Nom PDF", "Nom voulu sans extension") 'nom pour le pdf
If sFichier = "" Then Exit Sub
sNom = ThisWorkbook.Path & "\" & sFichier
With Worksheets.Add
With ActiveSheet.ChartObjects.Add(0, 0, 450, 400).Chart 'ajouter un graph
Sheets("Rapport FC (SPO)").Range("A1:E53").CopyPicture , xlPicture 'copier la plage à imprimer comme image (pour le moment 1 ligne&colonne trop grand)
.Paste 'coller l'image dans le graph
.ExportAsFixedFormat Type:=xlTypePDF, filename:=sNom, OpenAfterPublish:=True 'exporter en pdf
.Export ThisWorkbook.Path & "\" & filename & ".jpg", "jpg" 'exporter comme jpg, pas demandé !
End With
Application.DisplayAlerts = False
.Delete
Application.DisplayAlerts = True
End With
End Sub