Sub aa()
Dim Numero&
'---
For Numero& = 179856 To 179856 + 9 'à adapter (+ le nombre de fois (ici 10 fois))
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\" & ThisWorkbook.Name & "_" & Numero& & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Next Numero&
End Sub