Function LargeurColonneN(cListBox As Control, nCol As Long)
Dim Largeur As Double, S As String, t
If TypeName(cListBox) <> "ListBox" Then LargeurColonneN = -1: Exit Function
If nCol > cListBox.ColumnCount Then LargeurColonneN = -1: Exit Function
S = cListBox.ColumnWidths
If S = "" Then
Largeur = cListBox.Width / cListBox.ColumnCount
If Largeur < 72 Then Largeur = 72
Else
S = Replace(S, "pt", "")
Largeur = CDbl("0" & Split(S, ";")(nCol - 1))
End If
LargeurColonneN = Largeur
End Function