Ajustement automatique de la police en fonction de la taille de la cellule

Bonjour, ayant trouvé une macro ajustant automatiquement la taille de la police en fonction de la taille de Cellule

Sub AjusterPolice()
Dim cel As Range, police#, h#, i%
Set cel = [C9] 'à adapter
police = 50 'maximum à adapter
h = cel.RowHeight
Application.ScreenUpdating = False
cel.WrapText = True 'renvoi à la ligne
For i = 20 * police To 1 Step -1
    cel.Font.Size = i / 20 'pas de 0.1
    cel.Rows.AutoFit 'ajustement hauteur
    If cel.RowHeight <= h Then cel.RowHeight = h: Exit Sub
Next
End Sub

Je souhaiterais que cette macro s'active en même temps que lorsque j'appuie sur "EDITER TR" et qu'elle ne s'applique non pas seulement à la cellule C9 mais de C9 à C18.

Pensez-vous que cela soit possible à partir du fichier ci-joint

Merci

Bonjour

Macro a tester

Crdlt

Sub AjusterPolice()
Dim cel As Range, police#, h#, i%
Set cel = [C9:C18] 'ˆ adapter
police = 50 'maximum ˆ adapter
h = cel.RowHeight
Application.ScreenUpdating = False
cel.WrapText = True 'renvoi ˆ la ligne
For i = 20 * police To 1 Step -1
    cel.Font.Size = i / 20 'pas de 0.1
    cel.Rows.AutoFit 'ajustement hauteur
    If cel.RowHeight <= h Then cel.RowHeight = h: Exit Sub
Next
End Sub

Ce n'est pas exactement ce que je cherche, car j'aimerais éventuellement que ça puisse aller à la ligne si le texte est trop long, et également que je puisse associer cette macro à la suite de celle "EDITER LE TR"

Merci quand même