quel formule utilisé

Sub test_couleur2()
Dim c As Range
Dim ws As Worksheet

Set ws = Worksheets("Feuil1")
Set c = ws.Range("A1:I25")
Application.ScreenUpdating = False

c.Select 'Permet de selectionner plusieurs cellules
For Each cell In Selection 'Pour chaque cellule dans la selection
If cell.Value = Worksheets("Feuil2").Range("Q5").Value Then 'Si la valeur = Q5 alors
cell.Interior.ColorIndex = 6 'Colorie la couleur de la cellule
End If
If cell.Value = Worksheets("Feuil2").Range("Q6").Value Then  'Si la valeur = Q6 alors
cell.Interior.ColorIndex = 3 'Colorie la couleur de la cellule
End If
If cell.Value = Worksheets("Feuil2").Range("Q7").Value Then  'Si la valeur = Q7 alors
cell.Interior.ColorIndex = 41 'Colorie la couleur de la cellule
End If
If cell.Value = Worksheets("Feuil2").Range("Q8").Value Then  'Si la valeur = Q8 alors
cell.Interior.ColorIndex = 4 'Colorie la couleur de la cellule
End If
If cell.Value = Worksheets("Feuil2").Range("Q9").Value Then  'Si la valeur = Q9 alors
cell.Interior.ColorIndex = 13 'Colorie la couleur de la cellule
End If
'tu peux rajouter d'autres conditions à la suite
Next
wsBD.Range("A1").Select
Application.ScreenUpdating = True


End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range
Dim ws As Worksheet

Set ws = Worksheets("Feuil1") ' renommer en fonction de tes feuilles
Set c = ws.Range("A1:I25")

If ActiveCell.Value = Worksheets("Feuil2").Range("Q5").Value Then 'Si la valeur = Q5 alors
ActiveCell.Interior.ColorIndex = 6 'Colorie la couleur de la cellule
End If
If ActiveCell.Value = Worksheets("Feuil2").Range("Q6").Value Then  'Si la valeur = Q6 alors
ActiveCell.Interior.ColorIndex = 3 'Colorie la couleur de la cellule
End If
If ActiveCell.Value = Worksheets("Feuil2").Range("Q7").Value Then  'Si la valeur = Q7 alors
ActiveCell.Interior.ColorIndex = 41 'Colorie la couleur de la cellule
End If
If ActiveCell.Value = Worksheets("Feuil2").Range("Q8").Value Then  'Si la valeur = Q8 alors
ActiveCell.Interior.ColorIndex = 4 'Colorie la couleur de la cellule
End If
If ActiveCell.Value = Worksheets("Feuil2").Range("Q9").Value Then  'Si la valeur = Q9 alors
ActiveCell.Interior.ColorIndex = 13 'Colorie la couleur de la cellule
End If
'tu peux rajouter d'autres conditions à la suite

End Sub

Sub test()
Dim cell As Range, i As Integer
For Each cell In Range("Plage")
cell.Interior.ColorIndex = xlNone
    For i = 1 To 5
        If cell.Value = Range("Q" & i + 4).Value Then
            cell.Interior.ColorIndex = Range("Q" & i + 4).Interior.ColorIndex
        End If
    Next i
Next cell
End Sub

Sub arrivée()
'
' arrivée Macro
' Macro enregistrée le 20/12/2008 par jacky
'
Dim cell As Range, i As Integer
For Each cell In Range("numéros")
cell.Interior.ColorIndex = [COLOR=red]xlNone
[/COLOR]    For i = 1 To 5
        If cell.Value = Range("O" & i + 4).Value Then
           cell.Interior.ColorIndex = Range("O" & i + 4[COLOR=red]).[/COLOR]Interior.ColorIndex
           
        End If
    Next i
Next cell
     
End Sub