Sub Fusion2Cells()
Dim nb As Integer
Dim i As Integer
Application.DisplayAlerts = False
Range("C13").Select
Do While i < 65
i = ActiveCell.Row
nb = Int(ActiveCell.Value * 10)
With [B][COLOR="Blue"]Union([/COLOR][/B]Range(Cells(i, 3), Cells(i + nb - 1, 3)), [B][COLOR="Blue"]Range(Cells(i, [SIZE="4"][COLOR="Red"]5[/COLOR][/SIZE]), Cells(i + nb - 1, [SIZE="4"][COLOR="Red"]5[/COLOR][/SIZE])))[/COLOR][/B]
.MergeCells = True
.Orientation = 90
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
i = i + nb
Range(Cells(i, 3), Cells(i + nb - 1, 3)).Select
Loop
Application.DisplayAlerts = True
End Sub