Bonjour
Voici un exemple de macro :
Sub image_pixel()
'Macro créée depuis : www.blog-excel.com/mosaique-excel/
'Générateur de macro "mosaïque" par : Sébastien Mathier - Blog-Excel.com
Application.ScreenUpdating = False
image_pixel_serie_1
End Sub
Private Sub image_pixel_serie_1()
'Macro créée depuis : www.blog-excel.com/mosaique-excel/
Cells(1, 1).Interior.Color = RGB(22, 19, 21)
Cells(2, 1).Interior.Color = RGB(55, 29, 25)
Cells(3, 1).Interior.Color = RGB(86, 45, 37)
Cells(4, 1).Interior.Color = RGB(32, 20, 21)
Cells(1, 2).Interior.Color = RGB(98, 68, 60)
Cells(2, 2).Interior.Color = RGB(138, 97, 69)
Cells(3, 2).Interior.Color = RGB(114, 78, 58)
Cells(4, 2).Interior.Color = RGB(123, 73, 50)
Cells(1, 3).Interior.Color = RGB(174, 131, 102)
Cells(2, 3).Interior.Color = RGB(217, 183, 148)
Cells(3, 3).Interior.Color = RGB(211, 174, 137)
Cells(4, 3).Interior.Color = RGB(178, 131, 92)
Cells(1, 4).Interior.Color = RGB(206, 166, 149)
Cells(2, 4).Interior.Color = RGB(219, 185, 150)
Cells(3, 4).Interior.Color = RGB(214, 176, 138)
Cells(4, 4).Interior.Color = RGB(200, 157, 121)
End Sub