XL 2013 Comment changer automatiquement la taille de police dans une cellule sous E

Private Sub Worksheet_Change(ByVal Target As Range)
Dim police#, cel As Range, h#, i%
police = 11 'maximum à adapter
Application.ScreenUpdating = False
On Error Resume Next 'si aucune SpecialCell
With [E:E] 'à adapter
    .WrapText = True 'renvoi à la ligne
    For Each cel In .SpecialCells(xlCellTypeConstants)
        h = cel.RowHeight
        For i = 10 * police To 1 Step -1
            cel.Font.Size = i / 10 'pas de 0.1
            cel.Rows.AutoFit 'ajustement hauteur
            If cel.RowHeight <= h Then cel.RowHeight = h: Exit For
    Next i, cel
End With
End Sub

Sub RAZ()
With [E:E] 'à adapter
    .WrapText = False
    .Font.Size = 11
End With
End Sub

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