Sub mlk()
For i = 1 To 3
n = Range("a" & i)
Coul = Range("a" & i).Interior.Color
For j = k To n + k - 1
Range("C1:F500").Offset(0, 5 * j).Interior.Color = Coul
Next j
k = k + n
Next i
For Each Cel In Range("A1:A500")
If Cel = "" Then Cel.EntireRow.Interior.ColorIndex = 0
Next
End Sub
Merci tu as parfaitement compris.
Sub mlk()
For l = 0 To 2
k = 0
For i = 1 To 3
n = Range("a" & i).Offset(4 * l, 0)
coul = Range("a" & i).Offset(4 * l, 0).Interior.Color
For j = k To n + k - 1
Range("c1:f3").Offset(4 * l, 5 * j).Interior.Color = coul
Next j
k = k + n
Next i
Next l
End Sub