Sub SelectionOngletsCouleur()
Dim tabFeuilles() As String, curFeuille As Worksheet, nbFeuilles As Long
ReDim tabFeuilles(1 To 1): tabFeuilles(1) = ""
nbFeuilles = 0
For Each curFeuille In ThisWorkbook.Worksheets
If curFeuille.Tab.Color <> 255 Then
nbFeuilles = nbFeuilles + 1
ReDim Preserve tabFeuilles(1 To nbFeuilles)
tabFeuilles(nbFeuilles) = curFeuille.Name
End If
Next curFeuille
If tabFeuilles(1) <> "" Then ThisWorkbook.Sheets(tabFeuilles).Select
If MsgBox("Voulez-vous lancer l'enregistrement du fichier en PDF ?", vbYesNo + vbQuestion, "Sélection des onglets à imprimer") = vbYes Then
FileSaveName = Application.GetSaveAsFilename(InitialFileName:="Feuille Test_" & Format(Sheets("Test").Cells(24, 2), "dd mmmm yyyy") & ".pdf", filefilter:="Fichier PDF(*.pdf), *.pdf")
If FileSaveName <> False Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
FileSaveName, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
Sheets("Test").Select
ThisWorkbook.Save
Application.Quit
Application.EnableEvents = True
End If
End If
End Sub