XL 2019 Ajustement automatique Hauteur de ligne en fonction du texte variable

Sub AjusterHauteurLignes()
Dim o As OLEObject, oo As Object, P As Range, ncol%, i&, hmax#, j%, c As Range, a, h#
Set P = Feuil1.UsedRange 'CodeName de la feuill
ncol = P.Columns.Count
Application.ScreenUpdating = False
For i = 1 To P.Rows.Count
    hmax = 0
    For j = 1 To ncol
        Set c = P(i, j)
        If c.MergeCells Then
            a = c.HorizontalAlignment 'mémorise
            With c.MergeArea
                .UnMerge 'défusionne
                .Rows(1).HorizontalAlignment = xlCenterAcrossSelection 'centre sur plusieurs colonnes
                .Rows(1).AutoFit
                h = .Rows(1).RowHeight
                If h > hmax Then hmax = h
                .Merge 'refusionne
                j = j + .Columns.Count - 1
            End With
            c.HorizontalAlignment = a 'restitution
        End If
    Next j
    If hmax Then P.Rows(i).RowHeight = hmax
Next i
End Sub

Set P = Feuil1.Range("D68:AH77")

Sub RowHeight()

Dim c As Range
Dim NbL As Double
Dim TotalRowHeight As Double
Dim HautDep As Double
Dim Diff As Double
Dim x As Integer
Dim y As Integer

' Hauteur de départ du tableau
HautDep = 130

'Calcul de la hauteur du tableau après introduction du texte
For Each c In Range("D68:D77")
TotalRowHeight = TotalRowHeight + c.Height
Next c

'Différence de hauteur constatée
Diff = TotalRowHeight - HautDep


'Nombre de ligne(s) à enlever
NbL = Diff / 12
If Int(NbL) < NbL Then NbL = Int(NbL) + 1 Else: NbL = Int(NbL)


'Calcul de la ligne de départ
y = (77 - NbL) + 1

'Cacher les ligne(s) correspondante(s)
Range("A" & y & ":A77").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True

End Sub

Sub TabOrig()

'Remttre le tableau d'origine
Range("A68:A77").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = False
Feuil1.Rows("68:77").RowHeight = 12
End Sub