Un essai...
Sélectionnez une cellule et exécutez ce code :
VB:
Sub xxx()
Dim x As Boolean
x = Application.DisplayAlerts
Application.DisplayAlerts = False
ActiveCell.FormulaR1C1 = "=COUNTIF(A!C1:C12,'B'!RC1&""R7"")"
ActiveCell.Value = "'" & ActiveCell.FormulaLocal
Application.DisplayAlerts = x
End Sub
Sans macro (mais la macro de ROGER2327 est vraiment facile d'utilisation).
C'est bien plus long à expliquer qu'à faire (voir résumé dans le fichier)
Voir mode d'emploi dans le fichier joint.