Sub Macro1()
Dim mahauteur
Dim montableau()
Dim NbreCol As Byte
Dim macell
Set macell = ActiveCell
NbreCol = macell.CurrentRegion.Count
ReDim montableau(1 To 2, 1 To NbreCol)
For i = 1 To NbreCol
montableau(1, i) = i - 1 + macell.Column
montableau(2, i) = Columns(i - 1 + macell.Column).ColumnWidth
malargeur = malargeur + Columns(i - 1 + macell.Column).ColumnWidth
Next
maligne = macell.Row
macell.MergeCells = False
Columns(montableau(1, 1)).ColumnWidth = malargeur
Rows(maligne).EntireRow.AutoFit
mahauteur = Rows(maligne).RowHeight
Range(Cells(maligne, montableau(1, 1)), Cells(maligne, montableau(1, NbreCol))).MergeCells = True
For i = 1 To UBound(montableau)
Columns(montableau(1, i)).ColumnWidth = montableau(2, i)
Next
Rows(maligne).RowHeight = mahauteur
End Sub