Sub Macro1()
'
' Step = nombre de saut de dans la boucle
' ici le i saute de 6 en 6
' exemple i pour premier tour de boucle = 2
' i pour le deuxieme tour de boucle = 8
' grace au step qui vaut 6
' je mais 6 dans une variable
Dim saut As Integer
saut = 6
' Macro1 Macro
For i = 2 To Cells(65536, 1).End(xlUp).Row Step saut
For j = 1 To 4
With Range(Cells(i, j), Cells(i + (saut - 1), j))
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlTop
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Next j
Next i
' Nota : pour le premier tour de boucle i à la valeur de cf ci-dessous
' Cells(i + (saut - 1), j))
' i = 2 (Numéro de ligne)
' saut = 6 (Numéro de ligne)
' je dois fusioner 6 cellule verticallement dont
' i = 2 + (saut = 6) = 8 (Numéro de ligne)
' C'est trop je dois enlever une ligne
' saut - 1 donc saut = 5
' et i = 2 + (saut = 5) = 7 (Numéro de ligne)
' donc fusion de la ligne i = 2 à 7
' FIN
End Sub