Private Sub UserForm_Initialize()
Dim Cell As Range
With Sheets("Params")
For Each Cell In .Range("A2:A" & .Range("A65536").End(xlUp).Row)
ComboNom.AddItem (Cell)
Next
For Each Cell In .Range("B2:B" & .Range("B65536").End(xlUp).Row)
ComboDate.AddItem (Cell)
Next
End With
With lstResultat.ColumnHeaders
'Supprime les anciens entêtes
.Clear
'Ajoute les colonnes
.Add Text:="No", Width:=0
.Add Text:="Salle", Width:=100
.Add Text:="HeureDebut", Width:=60
.Add Text:="HeureFin", Width:=60
.Add Text:="Plage", Width:=0
End With
[COLOR="Red"]ComboNom.Value = nom_utilisateur_de_poste[/COLOR]
End Sub