XL 2016 VBA, hauteur de lignes

Sub Hauteur_Ligne()
Dim Ligne As Long
    For Ligne = 1 To Range("A" & Rows.Count).End(xlUp).Row
        Select Case CStr(Range("A" & Ligne).Value)
            Case "1": Rows(Ligne).RowHeight = 15
            Case "2": Rows(Ligne).RowHeight = 30
            Case "3": Rows(Ligne).RowHeight = 45
        End Select
    Next Ligne
End Sub

Sub test()
Dim c As Range
For Each c In Range("A1:A25").Cells
    Select Case c.Value
        Case 1 To 3: c.RowHeight = 15 * c
    End Select
Next c
End Sub