Fusionner des cellules avec condition

Bonjour à tous,

Je souhaiterai fusionner des cellules à chaque fois qu'elles ont la même valeur

Ls données se trouvent dans la ligne 4, à partir de la colonne E.

Voici mon code qui ne marche pas

MaPlage1 = Range("E4", Range("E4").End(xlToRight))
For Each cell In MaPlage1
 While cell = cell.Offset(, 1)
  Range("E4")offset(,1).merge
 Wend
Next

End Sub

Toute aide est la bienvenue

Merci

Bonjour

Essaie en remplaçant ton code par celui-ci :

    Set MaPlage1 = Range(Cells(4, 5), Cells(4, Cells(4, Columns.Count).End(xlToLeft).Column))
    d = 5
    Application.DisplayAlerts = False
    For j = 5 To Cells(4, Columns.Count).End(xlToLeft).Column
        v = Cells(4, d).Value
        If Cells(4, j + 1).Value <> v Then
            Range(Cells(4, d), Cells(4, j)).Merge
            d = j + 1
        End If
    Next j

Résultat ?

Bye !

Bonjour

Merci GMB, ça marche !