With Me.ListBox1
.Clear
.ColumnCount = nbcol
.List = Plage.Value
'Format perso pour la première colonne de la ListBox soit 0
For i = 0 To ListBox1.ListCount - 1
.List(i, 0) = Format(.List(i, 0), "00000")
Next i
For i = 1 To nbcol
temp = temp & Plage.Columns(i).Width * 0.9 & ";"
Next i
.ColumnWidths = temp
End With