Public Function concat(Couleur As Range, jour As Range) As String
Application.Volatile 'permet de raffraichir la fonction à chaque modif de la feuille excel
For Each ele In Range("PlageB")
If ele = Couleur.Value And ele.Offset(0, 1) = jour.Value Then
result = result & " " & ele.Offset(0, -1)
End If
Next ele
concat = result
End Function