Bonjour,
Ouvrir l'éditeur de macros (Alt+F11),
Ouvrir l'Explorateur de projet (CTRL + R),
Inserer un module standard (Onglet Insertion > Module),
Copier cette macro :
Sub Test()
Dim Ligne As Long
For Ligne = 1 To Range("E" & Rows.Count).End(xlUp).Row
If Cells(Ligne, "E") <> "" Then
Rows(Ligne).RowHeight = 30
End If
Next Ligne
End Sub
Revenir sur la feuille ,
Ouvrir la fenêtre macro (Alt+F8),
Exécuter "Test".
Cordialement.