Private Sub Workbook_Open()

Dim colonne As Integer: Dim ligne As Integer
Dim ligne_bd As Integer: Dim plage As Range

Sheets("listes_cascade").liste_type.Clear
Sheets("listes_cascade").liste_serv.Clear
Sheets("listes_cascade").liste_LComp.Clear
Sheets("listes_cascade").liste_type.Value = ""
Sheets("listes_cascade").liste_serv.Value = ""
Sheets("listes_cascade").liste_LComp.Value = ""

For colonne = 2 To 6 Step 2

 ligne = 5
 While Sheets("construction").Cells(ligne, colonne).Value <> ""
  Sheets("construction").Cells(ligne, colonne).Value = ""
  ligne = ligne + 1
Wend

Next colonne

ligne_bd = 2: ligne = 5
While Sheets("bd_sorties").Cells(ligne_bd, 3).Value <> ""
 Sheets("construction").Cells(ligne, 2).Value = Sheets("bd_sorties").Cells(ligne_bd, 3).Value
 ligne = ligne + 1: ligne_bd = ligne_bd + 1
Wend



End Sub