XL 2019 Additionner la hauteur d'un nombre de lignes

Option Explicit

Sub Hauteur_Plage()
   Dim myRange As Range, cell As Range, H As Double
   On Error Resume Next
   Set myRange = Application.InputBox(prompt:="Selectionner la plage", Type:=8)
   On Error GoTo 0
   If myRange Is Nothing Then
      Exit Sub
   Else
      For Each cell In myRange
         H = H + cell.EntireRow.RowHeight
      Next
   End If

   MsgBox "La hauteur totale des cellules sélectionnées est: " & H
End Sub

Sub HauteurTotale()
Dim t#, r As Range, h#
t = Timer
ActiveCell.Activate 'si un objet est sélectionné
Selection.EntireRow.Select
For Each r In Selection.Rows
    h = h + r.RowHeight
Next
MsgBox "Plage " & Selection.Address(0, 0) & vbLf & vbLf & "Hauteur totale " & h & vbLf & vbLf & "Durée du calcul " & Format(Timer - t, "0.00 \sec")
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    MsgBox Me.Rows(Target.Rows.Count + Target.Row).Top - Me.Rows(Target.Row).Top
End Sub

Sub HauteurTotale()
Dim t#, r As Range, h#
t = Timer
ActiveCell.Activate 'si un objet est sélectionné
Selection.EntireRow.Select
For Each area In Selection.Areas
    h = h + area.Height
Next
MsgBox "Plage " & Selection.Address(0, 0) & vbLf & vbLf & "Hauteur totale " & h & vbLf & vbLf & "Durée du calcul " & Format(Timer - t, "0.00 \sec")
End Sub

Sub HauteurTotale()
Dim t#, r As Range, h#
t = Timer
ActiveCell.Activate 'si un objet est sélectionné
For Each area In Selection.EntireRow.Areas
    h = h + area.Height
Next
MsgBox "Plage " & Selection.Address(0, 0) & vbLf & vbLf & "Hauteur totale " & h & vbLf & vbLf & "Durée du calcul " & Format(Timer - t, "0.00 \sec")
End Sub