Ajustement automatique cellules fusionnées

Bonjour,

J'avais eu, sur ce forum une personne qui m'avait aidé à créer une macro pour ajuster automatiquement la hauteur d'une cellule fusionnée lors de sa modification (macro ci-dessous)

Private Sub Worksheet_Change(ByVal target As Range)
If Not (Intersect(target, Range("D6,D7,C8,H6,H7,G8,D12,D13,C14")) Is Nothing) Then
        Call HauteurAutoCellulesFusionnées(target)
    End If
End Sub
 
Sub HauteurAutoCellulesFusionnées(Cellule)

    On Error GoTo GestionErreur 
    Set m = Cellule.MergeArea
    m.UnMerge
    m.WrapText = True 
    m.HorizontalAlignment = xlCenterAcrossSelection
    m.Rows.AutoFit
    hauteur = m.Rows.RowHeight
    m.Merge
    m.Rows.RowHeight = hauteur
    Exit Sub
        
GestionErreur:
    Cellule.Rows.AutoFit
End Sub

Aujourd'hui je cherche à retravailler cette macro afin qu'elle ajuste préalablement la hauteur de toutes les cellules fusionnées de mon onglet "Accueil" à l'ouverture du workbook mais je bloque, surtout qu'un second paramètre est à prendre en compte : 2 cellules fusionnées peuvent se trouver sur la même ligne (D6 et H6 par exemple) il faudrait donc que la ligne prenne la hauteur de la plus "grande" des 2.

Si quelqu'un à un peu de temps à perdre pour m'aider, je le remercie d'avance.

Bonne journée.