Réponse acceptée !
Désolé d'avoir oublié de préciser que je travaille avec VB6. Pour ma part je me suis penché sur la question et j'ai pensé à une fonction qui à l'air de bien fonctionner la voici:
Dim col As ColumnHeader
Dim temp_string As String
Dim taille As Integer
Dim inttel As Integer
For Each col In liste.ColumnHeaders
taille = 225
inttel = 1
temp_string = col.text
debut:
While Mid(temp_string, inttel, 1) <> ""
taille = taille + 75
inttel = inttel + 1
Wend
inttel = inttel + 1
taille = taille + 75
If Mid(temp_string, inttel, 1) <> "" Then GoTo debut
col.Width = taille
Next

Masterpopeye
