For Each OngletSelect In Range("ListeOngletsSelect")
If OngletSelect.Value <> "" Then
idx = idx + 1
ReDim Preserve TableauOnglets(1 To idx)
TableauOnglets(idx) = OngletSelect.Value
MsgBox (TableauOnglets(idx)) ''' pour verif selction de chaque feuille
tableauFini = tableauFini & "," & TableauOnglets(idx) ''' pour verif construction array
End If
Next
MsgBox tableauFini '''pour verif construction array
Sheets(TableauOnglets).Select
Sheets("Titre").Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
nom_du_fichier, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True