Private Sub UserForm_Initialize()
Sheets("4,planning").PageSetup.PrintArea = ""
Sheets("2,gamme prévisionnelle").PageSetup.PrintArea = ""
Dim S As Object
ListBox1.MultiSelect = fmMultiSelectExtended
For Each S In Sheets
ListBox1.AddItem S.Name
Next
If Feuil6.Range("BD12").Value = "" Then
Sheets("4,planning").PageSetup.PrintArea = "$A$1:$BC$80"
Sheets("4,planning").PageSetup.Orientation = xlLandscape
Else
Sheets("4,planning").PageSetup.PrintArea = "$A$1:$DC$80"
Sheets("4,planning").PageSetup.Orientation = xlLandscape
End If
Sheets("2,gamme prévisionnelle").PageSetup.PrintArea = "$A$1:$F$61"
Sheets("2,gamme prévisionnelle").PageSetup.Orientation = xlPortrait
End Sub