Private Sub Userform_Initialize()
Dim x As Integer
With Me.ListBox1
For x = 2 To Sheets("SYNTHESE_AUTRES").Range("B65536").End(xlUp).Row
If Sheets("SYNTHESE_AUTRES").Cells(x, 16) = "" Then
.AddItem Sheets("SYNTHESE_AUTRES").Cells(x, [B][COLOR=red]0[/COLOR][/B])
.Column(1, .ListCount - 1) = Sheets("SYNTHESE_AUTRES").Cells(x, 1)
.Column(2, .ListCount - 1) = Sheets("SYNTHESE_AUTRES").Cells(x, 2)
.Column(3, .ListCount - 1) = Sheets("SYNTHESE_AUTRES").Cells(x, 3)
.Column(4, .ListCount - 1) = Sheets("SYNTHESE_AUTRES").Cells(x, 4)
.Column(5, .ListCount - 1) = Sheets("SYNTHESE_AUTRES").Cells(x, 5)
.Column(6, .ListCount - 1) = Sheets("SYNTHESE_AUTRES").Cells(x, 6)
.Column(7, .ListCount - 1) = Sheets("SYNTHESE_AUTRES").Cells(x, 7)
.Column(8, .ListCount - 1) = Sheets("SYNTHESE_AUTRES").Cells(x, 8)
.Column(9, .ListCount - 1) = Sheets("SYNTHESE_AUTRES").Cells(x, 9)
.Column(10, .ListCount - 1) = Sheets("SYNTHESE_AUTRES").Cells(x, 10)
End If
Next x
End With
Me.ComboBox1.List = Sheets("UF (2)").Range("D4:D" & Sheets("UF (2)").Range("D65536").End(xlUp).Row).Value
Me.ComboBox2.List = Sheets("TYPE DU TRANSPORTS").Range("C3:C" & Sheets("TYPE DU TRANSPORTS").Range("C65536").End(xlUp).Row).Value
Me.ComboBox3.List = Sheets("LIEUX DE RDV").Range("C3:C" & Sheets("LIEUX DE RDV").Range("C65536").End(xlUp).Row).Value
Me.ComboBox4.List = Sheets("MOTIF").Range("C3:C" & Sheets("MOTIF").Range("C65536").End(xlUp).Row).Value
End Sub