Function LISTE_SI_COULEUR(Plage As Range, PlageCouleur As Range)
Dim tablo() As String, cel As Range, n As Integer
Application.Volatile
ReDim tablo(Plage.Count - 1)
For Each cel In Plage
If cel.Interior.ColorIndex = PlageCouleur.Interior.ColorIndex Then
tablo(n) = Plage.Parent.Cells(cel.Row, 1)
n = n + 1
End If
Next
LISTE_SI_COULEUR = tablo
End Function