Ajuster automatiquement le contenu d'une cellule

Bonjour,

Je cherche à ajuster automatiquement le contenu d'une cellule en vba. Auriez vous une idée ? Merci.

Je viens de trouver,

.ShrinkToFit = True

Merci.