Aide fichier vba excel

Bonjour,

J'ai trouvé sur internet un bout de code qui m'intéresse grandement mais je n'arrive pas à le faire fonctionner dans mon fichier excel...
J'aurais besoin de l'aide d'une bonne âme charitable car je ne sais absolument pas developper ni coder.

Déjà d'après ce que je comprends la deuxième partie prend en compte une cellule selectionnée (Dim CurrCell As Range), hors moi je voudrais que la méthode s'applique à toute la page et cela sans avoir à cliquer sur un bouton.

Je peux fournir mon fichier et éclairer mon besoin sur demande en MP



Voici le code en question :

Sub Trouvercellfusionnées()
Dim cell As Range
With ActiveSheet.UsedRange
For Each cell In .Cells
With cell
If .MergeCells = True Then
.Activate
.RowHeight = 12.75
Call AutoFitMergedCellRowHeight
End If
End With
Next cell
End With
End Sub

Sub AutoFitMergedCellRowHeight()
'MAcro de Jim Rech
Dim CurrentRowHeight As Single, MergedCellRgWidth As Single
Dim CurrCell As Range
Dim ActiveCellWidth As Single, PossNewRowHeight As Single
If ActiveCell.MergeCells Then
With ActiveCell.MergeArea
.WrapText = True 'enclenche le renvoi à la ligne automatique (modif fs)
If .Rows.Count = 1 Then 'And .WrapText = True Then
Application.ScreenUpdating = False
CurrentRowHeight = .RowHeight
ActiveCellWidth = ActiveCell.ColumnWidth
For Each CurrCell In Selection
MergedCellRgWidth = CurrCell.ColumnWidth + _
MergedCellRgWidth
Next
.MergeCells = False
.Cells(1).ColumnWidth = MergedCellRgWidth
.EntireRow.AutoFit
PossNewRowHeight = .RowHeight
.Cells(1).ColumnWidth = ActiveCellWidth
.MergeCells = True
.RowHeight = IIf(CurrentRowHeight > PossNewRowHeight, _
CurrentRowHeight, PossNewRowHeight)
End If
End With
End If
End Sub

Merci à tous