Salut,
J'arrive un peu après la bataille, mais j'ai aussi ce problème.
Sauf que dans mon cas, les feuilles étaient sélectionnées en fonction de la valeur d'une cellule. Le code est :
'Sélection des onglets à imprimer
If Cells(325, 2).Value = "Vrai" Or Cells(327, 2).Value = "Vrai" Then Sheets("Gouvernes").Select Replace:=False
If Cells(329, 2).Value = "Vrai" Then Sheets("Alt. TBO").Select Replace:=False
If Cells(331, 2).Value = "Vrai" Then Sheets("Insp. corros°").Select Replace:=False
If Cells(333, 2).Value = "Vrai" Then Sheets("Pesée").Select Replace:=False
If Cells(335, 2).Value = "Vrai" Then Sheets("Vol de contrôle").Select Replace:=False
If Cells(337, 2).Value = "Vrai" Then Sheets("Test ATC").Select Replace:=False
If Cells(339, 2).Value = "Vrai" Then
Sheets("APRS").Select Replace:=False
Sheets("Livrets").Select Replace:=False
End If
Comment faire pour gérer ça avec l'instruction Array ?
Merci d'avance.
Manu