XL 2013 Enregistrer plusieurs onglets sous un seul fichier pdf

Sub test3()
  Dim Tabl() As String, C As Range, I As Long
  With Sheets("Informations")
    I = -1
    For Each C In .[B4:B7]
      If C.Offset(, 1) = "Oui" Then
        I = I + 1
        ReDim Preserve Tabl(I)
        Tabl(I) = C.Value
      End If
    Next C
    Sheets(Tabl).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
      "d:\Users\dcola\Downloads\Test-GazZ.pdf", Quality:=xlQualityStandard, _
      IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
      True
  End With
End Sub