Bonjour,
C'est possible et il ya deux méthodes.
 
Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 2                            '2 colonnes
ListBox1.ColumnWidths = ListBox1.Width / 2          '2 colonnes égales
'**********1ère méthode : Chaque item est entré dans la listbox un à un
For i = 0 To 10
    ListBox1.AddItem "Prénom" & Str(i)
    ListBox1.List(i, 1) = "Temps" & Str(i)
Next i
     
'**********2ème méthode : On défini au préalable la liste que l'on incorpore après dans la listbox
Dim MaListe(10, 1)
For i = 0 To 10
    MaListe(i, 0) = "Prénom" & Str(i): MaListe(i, 1) = "Temps" & Str(i)
Next i
ListBox1.List = MaListe
End Sub
 
Bon courage.
Epéna

Bonjour,
Je suis surpris que les colonnes ne se créées pas. Quel est la version d'Excel ? Il faut essayer de les définir à la création en mettant par exemple pour la propriété ListBox1.ColumnWidths= 50;50
 
Pour le reste la methode AddItem est parfaitement adaptée:
Pour ajouter un nouveau nom à la liste :
 
NouveauNom = InputBox("Donner votre prénom." )
If NouveauNom <> "" Then
    ListBox1.AddItem NouveauNom
End If
ListBox1.Selected(ListBox1.ListCount - 1) = True   'selectionne l'élément ajouté
 
Pour ajouter le temps dans la deuxième colonne
tps = "100"
ListBox1.List(ListBox1.ListIndex, 1) = tps
 
Cordialement
Epéna