Taille automatique EXcel

Bonjour, je vous remercie pour cette réponse
mais j'utilise très peu excel, où dois-je entrer le code ?

Bonjour,

Alt+F11 pour ouvrir l'éditeur.
Clic-droit sur le projet du classeur à droite, 'Insertion / Module'
Coller le texte du code dans la fenêtre de droite.
'Enregistrer sous...', choisir le type *.xlsm pour conserver les macros.
La macro s'applique à la feuille active lors de son appel.
eric

Merci ça marche mais du coup pour les textes assez long ça sors de l'écran, dois-je les travailler avec entrée ?

Bonjour,

qui limite les lignes à x caractères sans couper les mots, ici 40 car. :

Sub ajustComm()
    Dim pl As Range, c As Range, ch As String
    Set pl = Cells.SpecialCells(xlCellTypeComments)
    If Not pl Is Nothing Then
        For Each c In pl
            c.Comment.Text decoupCh(c.Comment.Text, 40)
            c.Comment.Shape.TextFrame.AutoSize = True
        Next c
    End If
End Sub

Function decoupCh(ch As String, lMax As Long, Optional suppVbLF = False) As String
    Dim pos As Long
    'insère chr(10) tous les x caractères, sans couper les mots
    If suppVbLF Then ch = Replace(ch, vbLf, " ")
    pos = lMax + 1
    Do
        pos = InStrRev(ch, " ", pos)
        Mid(ch, pos, 1) = vbLf
        pos = pos + lMax + 1
    Loop Until pos >= Len(ch)
    decoupCh = ch
End Function

si tu fais des tests de largeur les retour chariot vont s'accumuler.
Si tu veux les supprimer tous avant d'en remettre ajoute le paramètre , True à :
c.Comment.Text decoupCh(c.Comment.Text, 40, True)
Mais ça les enlève tous, y compris les volontaires. Impossible de les distinguer.
eric

Merci et j'ai comme réponse "Argument ou appel de procédure incorrect", du coup ça marche ...