Private Sub UserForm_Initialize()
Dim maplage As Range, i As Integer
With ListBox1
.ColumnCount = 6
.RowSource = "B9:G9"
.TextAlign = fmTextAlignCenter
End With
With ListBox2
.ColumnCount = 6
.RowSource = Range("B10:G" & Range("B65536").End(xlUp).Row).Address
.TextAlign = fmTextAlignLeft
End With
End Sub