Option Explicit
Sub Hauteur()
Dim Ligne As Range
Application.ScreenUpdating = False
With ActiveSheet
For Each Ligne In .Rows("1:500")
Ligne.AutoFit
Ligne.WrapText = True
Ligne.RowHeight = Application.Max(Ligne.RowHeight, 22.5)
Next
End With
Application.ScreenUpdating = True
End Sub