Function CUser(ByVal Target As Range, ByVal Crit As Integer) As Integer
'Compte le nombre de fois ou on trouve un nom dans un commemtaire
'avec condition
'Raccourci de feuille
Set f = Sheets("Feuil1")
p = 0
'Si il y a au moins un commentaire dans la feuille
If Not f.Comments Is Nothing Then
'Pour chacun des commentaires de la feuille
For Each c In f.Comments
'Regarde si la cellule du commentaire est la même que celle demandée
If Not Intersect(Target, c.Parent) Is Nothing Then
'si oui'
'Pourchaque valeur dans la "liste"
For Each d In f.Range("Liste")
'on regarde si la valeur (d) est dans le commentaire
If InStr(c.Text, d) > 0 Then
'si elle y est,
'on regarde si l'âge est plus grand ou égal au critère
If d.Offset(0, 4).Value >= Crit Then
'Si on arrive ici,
'c'est que le nom de la personne est dans le commanteire ET
'l'âge est plus grand
'Donc on cincrémente le compteur
p = p + 1
End If
End If
Next d
End If
Next c
End If
'Avant de sortir, il faut attribuer le résultat à la fonction
CUser = p
End Function