Modifier les hauteurs de certaines lignes par macro

Private Sub CommandButton1_Click()
'Déclare la variable objet Worksheet
Dim Ws As Worksheet
 'Boucle sur toutes les feuille de calcul du classeur. Les onglets graphiques ne sont pas pris
'en compte.
'ThisWorkbook correspond à l'objet classeur contenant la macro
For Each Ws In ThisWorkbook.Worksheets
    If Ws.Name = "Feuil3" Or Ws.Name = "Feuil6" Then 'les 2 feuilles exclues a adapter
    Else
    Ws.Select
      Rows("15:15").RowHeight = 58
      Rows("32:32").RowHeight = 58
       Rows("16:16").RowHeight = 18
      Rows("33:33").RowHeight = 18
    End If
Next Ws
End Sub

Const F1 = "Feuil2"
Const F2 = "Feuil5"
Const h1 = 58
Const h2 = 18

Public Sub HauteurLigne()
Dim nuf As Long
For nuf = 1 To Sheets.Count
  If Sheets(nuf).Name <> F1 And Sheets(nuf).Name <> F2 Then
    Sheets(nuf).Rows(15).RowHeight = h1
    Sheets(nuf).Rows(32).RowHeight = h1
    Sheets(nuf).Rows(16).RowHeight = h2
    Sheets(nuf).Rows(33).RowHeight = h2
  End If
Next nuf
End Sub