Private Sub UserForm_Initialize()
On Error Resume Next
With Sheets("NBR_EPI")
If Range("A65536").End(xlUp).Row > 1 Then ListBox6.List() = .Range("A2:A" & .Range("A65536").End(xlUp).Row).Value
If Range("B65536").End(xlUp).Row > 1 Then ListBox7.List() = .Range("B2:B" & .Range("B65536").End(xlUp).Row).Value
If Range("C65536").End(xlUp).Row > 1 Then ListBox3.List() = .Range("C2:C" & .Range("C65536").End(xlUp).Row).Value
If Range("D65536").End(xlUp).Row > 1 Then ListBox4.List() = .Range("D2:D" & .Range("D65536").End(xlUp).Row).Value
If Range("E65536").End(xlUp).Row > 1 Then ListBox5.List() = .Range("E2:E" & .Range("E65536").End(xlUp).Row).Value
If Range("F65536").End(xlUp).Row > 1 Then ListBox8.List() = .Range("F2:F" & .Range("F65536").End(xlUp).Row).Value
If Range("G65536").End(xlUp).Row > 1 Then ListBox9.List() = .Range("G2:G" & .Range("G65536").End(xlUp).Row).Value
If Range("H65536").End(xlUp).Row > 1 Then ListBox10.List() = .Range("H2:H" & .Range("H65536").End(xlUp).Row).Value
If Range("A65536").End(xlUp).Row = 2 Then ListBox6.List() = .Range("A2:A3").Value
If Range("B65536").End(xlUp).Row = 2 Then ListBox7.List() = .Range("B2:B3").Value
If Range("C65536").End(xlUp).Row = 2 Then ListBox3.List() = .Range("C2:C3").Value
If Range("D65536").End(xlUp).Row = 2 Then ListBox4.List() = .Range("D2:D3").Value
If Range("E65536").End(xlUp).Row = 2 Then ListBox5.List() = .Range("E2:E3").Value
If Range("F65536").End(xlUp).Row = 2 Then ListBox8.List() = .Range("F2:F3").Value
If Range("G65536").End(xlUp).Row = 2 Then ListBox9.List() = .Range("G2:G3").Value
If Range("H65536").End(xlUp).Row = 2 Then ListBox10.List() = .Range("H2:H3").Value
End With
End Sub