Sub fusionner()
For i = 1 To 60 Step 4
'Do Until i = 20
Range("A" & i & ":A" & i + 3).Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
Selection.Merge
End With
'Loop
Next i
End Sub