METTRE EN COULEUR UNE CELLULE EXCEL

'**********************************************************
'Coder par FeuxX
'**********************************************************
'================================================
'dans un Module
Global newexcel As New Excel.Application
'================================================

'=================================================
'code
'=================================================
'j'ouvre excel
newexcel.Visible = True
'j'ajout un classeur
newexcel.Workbooks.Add
' on met en gras la cellule C2
newexcel.Range("C2").Font.Bold = True
' on enleve le cadrillage
newexcel.ActiveWindow.DisplayGridlines = False
'====================================================================================
'Mise en couleur des cellules
'=============================
'couleurs
'---------
'Aqua       =>      8, 28, 33, 34, 42
'Black      =)>     1, 51, 52
'Blue       =)>     5, 32, 41, 49
'Fuchsia    =)>     7, 26
'Gray       =)>     16, 46, 47, 48, 56
'Green      =)>     10, 43
'Lime       =)>     4
'Maroon     =)>     9, 30, 53
'Navy       =)>     11, 25, 55
'Olive      =)>     12, 44, 45
'Purple     =)>     13, 18, 21, 29, 54
'Red        =)>     3
'Silver     =)>     15, 17, 20, 22, 24, 35, 36, 37, 38, 39
'Teal       =)>     14, 23, 31, 50
'White      =)>     2, 19, 40
'Yellow     =)>     6, 27
'-------------
'range(cells(a,b),cells(c,d)) 'procedure de selection de champs
'(a,b) = colone
'a= debut de la selection
'b= nombre de champs selectioner apres
'(c,d) = ligne
'c= debut de selection
'd= nombre de champs selectioner apres
'======================================================================================
'selectionne la case b2 est la mets de couleur jaune
Selection.Range(Cells(2, 2), Cells(2, 3)).Interior.ColorIndex = 6