DrawFlag

Collez ça dans "ThisWorkBook",
dans un nouveau Classeur Excel 2000&+..
(doit contenir au minimum un onglet "Feuil1")

' =============================
' DrawFlag (P)05/2008 -MyLzz59-
' =============================
Sub DrawFlag()
' Déclarations
Const CVT = 0.174532925194444 ' PI/18
Const Flag = "0000FF0099FF00FFFF669933FFCC00FF99CC3" ' Rainbow
' Init Feuille
With Feuil1.Range("A:IV")
.RowHeight = 7.5: .ColumnWidth = 0.83: .Interior.ColorIndex = -1
End With
' Dessin
With Feuil1
For X = 0 To 73
Z = -Int(5 * Sin(X * CVT)) ' Sinusoïde
C& = IIf(X > 0 And X < 73, _
Val("&h0" + Mid$(Flag, 1 + 6 * ((X - 1) \ 12), 6) + "&"), 0) ' Flag Color
For Y = 8 To 48 - 25 * (X = 0)
.Cells(Y + Z, 2 + X).Interior.Color = IIf(Y > 8 And Y < 48, C&, 0)
Next Y
Next X
End With
End Sub

Cadeau !!
-MyLzz59-