Fusionner des cellules si l'une contient du texte

[Caro1393]

Bonjour,
Je sais que c'est pas bien de fusionner les cellules mais ici ce n'est que pour de la mise en page.

Mon but c'est qu'à chaque fois qu'il y a du texte dans une cellule de la colonne B elle se fusionne avec les cellules de la même ligne jusqu'à la colonne J (inclus).
Le tout doit se faire quand on clique sur le bouton à droite

J'ai fait une macro, mais ça me fusionne toutes les lignes ensemble. J'ai essayé un peu dans tous les sens mais je n'y arrive pas.
Pouvez-vous m'aider svp?
Merci d'avance

 

[TooFatBoy]

Bonjour,

Je n'ai fait que légèrement modifier ton classeur.
Regarde si c'est mieux.

 

[patricktoulon]

Bonjour

Sub test()
    Dim cell
    With Range("B2", Cells(Rows.Count, "B").End(xlUp))
        For Each cell In .SpecialCells(xlTextValues).Cells
            cell.Resize(1, 9).Merge
        Next
    End With
End Sub

 

[Caro1393]

C'est parfait
Merci!!

 

[TooFatBoy]

@Caro1393 : je te propose une petite variante par rapport au classeur que j'ai posté précédemment.