Function Countccolor(range_data As Range, criteria As Range) As Long
Dim datax As Range
Dim xcolor As Long
xcolor = criteria.Interior.ColorIndex
For Each datax In range_data
If datax.Interior.ColorIndex = xcolor Then
Countccolor = Countccolor + 1
End If
Next datax
End Function
Je n'arrive pas a intégrer de dire ligne 5 colonne variable et récupérieur la valeur de cette cellule