Private Sub UserForm_Initialize()
Call choix(ToggleButton1)
Call choit(ToggleButton2)
Sheets("Caractéristiques des matériaux").Activate
Dim Lig As Byte, fin As Byte
fin = Range("A2").End(xlDown).Row
For Lig = 2 To fin
ListBox1.AddItem Cells(Lig, "A")
ListBox3.AddItem Cells(Lig, "A")
ListBox4.AddItem Cells(Lig, "A")
ListBox5.AddItem Cells(Lig, "A")
ListBox7.AddItem Cells(Lig, "A")
ListBox9.AddItem Cells(Lig, "A")
Next
Dim Ligne As Byte, F As Byte
Sheets("matériels").Activate
F = Range("H1").End(xlDown).Row
For Ligne = 1 To F
ListBox2.AddItem Cells(Ligne, "H")
Dim Lignet As Byte, Scra As Byte
Scra = Range("K2").End(xlDown).Row
Next
For Ligne = 2 To Scra
ListBox8.AddItem Cells(Ligne, "k")
Next
Dim Lote As Byte, Tute As Byte
Sheets("matériels").Activate
Tute = Range("A1").End(xlDown).Row
For Lote = 1 To Tute
ListBox27.AddItem Cells(Lote, "A")
ListBox28.AddItem Cells(Lote, "A")
ListBox29.AddItem Cells(Lote, "A")
ListBox30.AddItem Cells(Lote, "A")
ListBox31.AddItem Cells(Lote, "A")
ListBox32.AddItem Cells(Lote, "A")
ListBox33.AddItem Cells(Lote, "A")
ListBox34.AddItem Cells(Lote, "A")
Next
Dim lignes As Byte, Bul As Byte
Sheets("BULL").Activate
Bul = Range("W2").End(xlDown).Row
For lignes = 2 To Bul
ListBox6.AddItem Cells(lignes, "W")
Next
Dim L As Byte, T As Byte
Sheets("Métré et Tâches").Activate
T = Range("A1").End(xlDown).Row
For L = 1 To T
ListBox10.AddItem Cells(L, "A")
Next
Dim Lo As Byte, Tu As Byte
Sheets("personnels").Activate
Tu = Range("A1").End(xlDown).Row
For Lo = 1 To Tu
ListBox11.AddItem Cells(Lo, "A")
ListBox12.AddItem Cells(Lo, "A")
ListBox13.AddItem Cells(Lo, "A")
ListBox14.AddItem Cells(Lo, "A")
ListBox15.AddItem Cells(Lo, "A")
ListBox16.AddItem Cells(Lo, "A")
Next
Dim Lot As Byte, Tut As Byte
Sheets("fournitures").Activate
Tut = Range("A1").End(xlDown).Row
For Lot = 1 To Tut
ListBox17.AddItem Cells(Lot, "A")
ListBox18.AddItem Cells(Lot, "A")
ListBox19.AddItem Cells(Lot, "A")
ListBox20.AddItem Cells(Lot, "A")
ListBox21.AddItem Cells(Lot, "A")
ListBox22.AddItem Cells(Lot, "A")
ListBox23.AddItem Cells(Lot, "A")
ListBox24.AddItem Cells(Lot, "A")
ListBox25.AddItem Cells(Lot, "A")
ListBox26.AddItem Cells(Lot, "A")
Next
Dim Loti As Byte, Tuti As Byte
Sheets("Métré et Tâches").Activate
Tuti = Range("I1").End(xlDown).Row
For Loti = 1 To Tuti
ListBox35.AddItem Cells(Loti, "I")
Next
Sheets("Programme des travaux").Activate
ListBox10.Value = Range("A36").End(xlUp).Value
End Sub