Sub couleurs_noms()
Dim j As Long, k As Long
Application.ScreenUpdating = False
With Sheets("Feuil1")
For j = 9 To 10000
For k = 9 To 100
If .Cells(j, 1) = "" Then Exit Sub
If .Cells(j, 1) = "Fabrice FONTAINE" And .Cells(j, k).Interior.ColorIndex <> xlNone Then
.Cells(j, 1).Interior.ColorIndex = 6
.Range(Cells(j, 7), Cells(j, 8)).Interior.ColorIndex = 6
.Cells(j, k).Interior.ColorIndex = 6
ElseIf .Cells(j, 1) = "Stéphane POCHET" And .Cells(j, k).Interior.ColorIndex <> xlNone Then
.Cells(j, 1).Interior.ColorIndex = 33
.Range(Cells(j, 7), Cells(j, 8)).Interior.ColorIndex = 33
.Cells(j, k).Interior.ColorIndex = 33
ElseIf .Cells(j, 1) = "Christophe ANSELIN" And .Cells(j, k).Interior.ColorIndex <> xlNone Then
.Cells(j, 1).Interior.ColorIndex = 46
.Range(Cells(j, 7), Cells(j, 8)).Interior.ColorIndex = 46
.Cells(j, k).Interior.ColorIndex = 46
ElseIf .Cells(j, 1) = "Isabelle POCHET" And .Cells(j, k).Interior.ColorIndex <> xlNone Then
.Cells(j, 1).Interior.ColorIndex = 47
.Range(Cells(j, 7), Cells(j, 8)).Interior.ColorIndex = 47
.Cells(j, k).Interior.ColorIndex = 47
ElseIf .Cells(j, 1) = "Didier MARQUOIS" And .Cells(j, k).Interior.ColorIndex <> xlNone Then
.Cells(j, 1).Interior.ColorIndex = 22
.Range(Cells(j, 7), Cells(j, 8)).Interior.ColorIndex = 22
.Cells(j, k).Interior.ColorIndex = 22
'ElseIf .Cells(k, 1) = "Fabrice FONTAINE" And .Cells(J, K).Interior.ColorIndex <> xlNone Then
'.Cells(J, 1).Interior.ColorIndex = 43
'.Range(Cells(J, 7), Cells(J, 8)).Interior.ColorIndex = 43
'.Cells(J, K).Interior.ColorIndex = 43
End If
Next k
Next j
End With
Application.ScreenUpdating = True
End Sub