XL 2010 Résolu . Autofit augmenté

    Target.EntireRow.AutoFit
    Target.RowHeight = Target.RowHeight + 30
    Target.VerticalAlignment = xlCenter

Private Sub Worksheet_Change(ByVal Target As Range)
Dim h!
Set Target = Intersect(Target.EntireRow, UsedRange.EntireRow)
If Target Is Nothing Then Exit Sub
Application.ScreenUpdating = False
For Each Target In Target.Rows 'si entrées ou effacements multiples
    Target.WrapText = False 'pas de renvoi à la ligne
    Target.AutoFit
    h = Target.RowHeight 'mémorise la hauteur
    Target.WrapText = True 'renvoi à la ligne
    Target.AutoFit
    Target.RowHeight = Target.RowHeight + 2 * h
    Target.VerticalAlignment = xlCenter 'centrage vertical
Next
End Sub