Sub Compteur()
Dim nom_cc As String
Dim cpt As Integer
For I = Sheets("Quota ecoute CC").[A65000].End(xlUp).Row To 2 Step -1
nom_cc = Sheets("Quota ecoute CC").Cells(I, 1).Value
For J = Sheets("liste").[D65000].End(xlUp).Row To 2 Step -1
If Not Cells(J, 4).Find(nom_cc) Is Nothing Then
cpt = cpt + 1
End If
Next J
Sheets("Quota").Cells(I, 2).Value = cpt
Next I
End Sub