PDF sur plusieurs pages

Bonjour,

J'ai adapter ma zone impression pour qu'elle soit variable en fonction de la dernière cellule qui contient du texte.

Par contre, mon impression ajuste mon contenu sur une seule page. J'aimerais que ça soit sur plusieurs pages.

Où modifier ma macro exactement ?

Merci

countarr = 0

'loop in sheets list

While sname.Cells(r, csname) <> ""

'add to array if flag is on

If sname.Cells(r, c) = 1 Then

ReDim Preserve vararray(countarr)

vararray(countarr) = sname.Cells(r, csname).Value

countarr = countarr + 1

End If

r = r + 1

Wend

Sheets(vararray).Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="Performance_globale.pdf" _

, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _

:=False, OpenAfterPublish:=True

sname.Activate

End Sub

Merci

Bonjour,

avez-vous essayé avec,

IncludeDocProperties:=False