Private Sub UserForm_Initialize()
Dim Rng As Range
With Sheets("En cours")
Set Rng = .Range("A7:J" & .Cells(.Rows.Count, 2).End(xlUp).Row)
End With
ComboBox1.ColumnCount = 10
ComboBox1.ColumnWidths = "60;190;40;180;90;30;80;80;80;150"
ComboBox1.RowSource = Rng.Address(External:=True)
TextBox1 = Rng.Rows.Count
End Sub