VBA : Fusion cellules identiques sans plage

Bonjour à tous,

J'ai besoin dans le cadre de la création d'un planning de fusionner des cellules horizontalement adjacentes lorsqu'elles sont identiques.

J'ai trouvé le script ci dessous sur le forum. Je l'ai testé, il fonctionne et correspond parfaitement à mes attentes à une exceptions près. Je souhaiterai modifier ou supprimer la plage afin qu'elle s'applique sur toute la feuille Excel.
La solution doit être simple mais après avoir tenter et rechercher de nombreuses choses pour modifier le script, je n'y parviens pas.

Quelqu'un peut il m'aider à modifier ce script afin qu'il s'applique à toute la feuille ou modifié la plage afin qu'elle s'applique à toutes les lignes d'un tableau ?

Sub fusion()
Dim co As Long
Dim nbco As Long
Dim plage As Range
Set plage = Sheets("T2").Range("B25:V25")
Application.DisplayAlerts = False
With plage
nbco = .Columns.Count
For co = nbco To 2 Step -1
If .Cells(1, co) = .Cells(1, co - 1) Then
Range(.Cells(1, co), .Cells(1, co - 1)).MergeCells = True
End If
Next co
End With
Application.DisplayAlerts = True
End Sub