coloration de cellule impossible

Bonjour,

j ai un bout de code que j ai déjà utilisé et qui jusqu' à présent marcher très bien, qui me pose quelques soucis
j essaye tout betement de colorier et graisser toute une ligne, mais rien ne se passe! qql verrrait il dans mon code ce qu'il ne va pas???
moi je ne trouve pas!!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
'paramètres'
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = False
'conversion fichier excel
Set Workbook = objExcel.Workbooks.Open("H:\FichierCorrige.txt")
Workbook.SaveAs("H:\FichierCorrige.xls")
Workbook.close("H:\FichierCorrige.txt")
 
'traitement fichier
Set objWorkbook  = objExcel.Workbooks.Open("H:\FichierCorrige.xls")
Set objWorksheet = objWorkbook.Worksheets(1)
 
'suppression 1er colonne'
set colonne = objWorksheet.Columns(1)
colonne.EntireColumn.Delete
 
 
'ajout d un titre'
set selection = objWorksheet.rows(1)
Selection.EntireRow.Insert
set titre = objWorksheet.cells(1,1)
titre.value = "Temps"
 
 
nbcolonne = objWorksheet.Range("A3").End(xltoright).Column
for c=2 to nbcolonne
	objWorksheet.cells(1,c).value = "Patient_"&c-1
 
next
 
set selection2 = objWorksheet.columns(2)
selection2.EntireColumn.Insert
set titre2 = objWorksheet.cells(1,2)
titre2.value="Moyenne"
 
set selection3 = objWorksheet.columns(3)
selection3.EntireColumn.Insert
set titre3 = objWorksheet.cells(1,3)
titre3.value="Mediane"
 
set selection4 = objWorksheet.columns(4)
selection4.EntireColumn.Insert
set titre4 = objWorksheet.cells(1,4)
titre4.value="Ecart-type"
 
set header = objWorksheet.rows(1)
header.EntireRow.font.bold = True
header.EntireRow.font.ColorIndex = 3

merci!