Salut,
voici un copier/coller de l'aide d'excel:
Propriété ShrinkToFit telle qu'elle s'applique aux objets CellFormat et Range.
Cette propriété a la valeur True si le texte s'ajuste automatiquement à la largeur de colonne disponible. Cette propriété renvoie la valeur Null si cette propriété ne se voit pas affecter la même valeur pour toutes les cellules de la plage spécifiée. Type de données Variant en lecture-écriture.
expression.ShrinkToFit
expression Obligatoire. Expression qui renvoie un des objets ci-dessus.
Exemples
Cet exemple montre comment ajuster automatiquement le texte de la ligne 1 à la largeur de colonne disponible.
Rows(1).ShrinkToFit = True
A+