Sub Mise_à_jour()
Dim chemin$, ligdeb&, ligfin&, coul1&, coul2&, coul3&, coul4&, coul5&, coul6&, coul7&
Dim i&, n&, fichier$, j%, f$, v1, v2, v3, v4, v5
chemin = ThisWorkbook.Path & "\" 'adapter si nécessaire
ligdeb = 9 '1ère ligne
ligfin = 30 'dernière ligne
coul1 = [T10].Interior.Color
coul2 = [T11].Interior.Color
coul3 = [T12].Interior.Color
coul4 = [T13].Interior.Color
coul5 = [T14].Interior.Color
coul6 = [T15].Interior.Color
coul7 = [T16].Interior.Color
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For i = ligdeb To ligfin
fichier = "P-" & Format(i - ligdeb + 1, "00") & ".xlsm"
For j = 1 To 12
f = "'" & chemin & "[" & fichier & "]RESUMER'!"
v1 = ExecuteExcel4Macro(f & "R2C" & j + 1) 'B2
v2 = ExecuteExcel4Macro(f & "R3C" & j + 1) 'B3
v3 = ExecuteExcel4Macro(f & "R9C" & j + 1) 'B9
v4 = ExecuteExcel4Macro(f & "R10C" & j + 1) 'B10
v5 = ExecuteExcel4Macro(f & "R11C" & j + 1) 'B11
If IsNumeric(v1) Then If v1 = 0 Then Cells(i, j).Interior.Color = coul1
If IsNumeric(v1) Then If v1 < 0 Then Cells(i, j).Interior.Color = coul2
If IsNumeric(v2) Then If v2 < 0 Then Cells(i, j).Interior.Color = coul3
If UCase(CStr(v3)) = "OT" Then Cells(i, j).Interior.Color = coul4
If UCase(CStr(v4)) = "NUIT" Then Cells(i, j).Interior.Color = coul5
If UCase(CStr(v5)) = "OK" Then Cells(i, j).Interior.Color = coul6
If IsNumeric(v1) And IsNumeric(v2) Then If v1 > v2 Then Cells(i, j).Interior.Color = coul7
Next j, i
End Sub