fusion de colonnes

Bonsoir Ludo

Cela pourra peut etre t'aider.

Sub Macro1()
'
Range("B2828").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.ShrinkToFit = False
.MergeCells = False
End With
Selection.Merge
End Sub

Bonne soirée

excellent!
merci pour ton aide.
Ludo.

Re,
j'ai étudié ta macro.
puis je me suis rendu compte que ta macro et la macro suivante:

Sub Macro1()
Range("B2828").Merge
End Sub

étaient du meme effet.

ta macro est pourtant plus longue. que fait-elle donc de plus que je ne me serais pas rendu compte ?
Ludo.