Sub Ajuster()
With Selection
.HorizontalAlignment = xlLeft
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = True
.ReadingOrder = xlContext
.MergeCells = False
.Rows.AutoFit
Hauteur = Int(.RowHeight / 2)
DoEvents
.MergeCells = True
.RowHeight = Hauteur
End With
End Sub