Réponse acceptée !
une petite fonction

Sub GetAutoSizeCol(InCol As Integer)

'******************** Entier
Dim NbSize As Integer
'********************

'*** Redimensionne selon contenu de la colonne
With VSP
    NbSize = 0
    NbSize = .MaxTextColWidth(InCol)
    .ColWidth(InCol) = NbSize + 1
End With

End Sub

Bon dev

Réponse acceptée !
ben juste

GetAutoSizeCol 0
GetAutoSizeCol 1
GetAutoSizeCol ...
GetAutoSizeCol NombredeColonnes-1

en remplacant VSP par le nom de ton controle

Réponse acceptée !
le but si tu utilises des spreads est d'en faire une fonction globale du projet :

Sub AutosizeCol( VSP as spreadsheet, ...

Et cela marchera pour n'importe quel spread de ton projet avec

Call AutosizeCol(Spreaddelaform,...)

Bon dev