Private Sub UserForm_Initialize()
Set f = Sheets("Table Catégorie")
Set Rng = f.Range("G2:H" & f.[A65000].End(xlUp).Row)
Me.Ctype.ColumnCount = 2
Me.Ctype.ColumnWidths = "100;60"
Me.Ctype.List = Rng.Value
Me.ListBox1.ColumnCount = 10 'à ajuster à tes besoins'
End Sub