Bonjour,
Une piste. La proc affiche une zone de texte avec le nombre d'occurrences dans la sélection la référence se trouvant en A1. A mettre dans le module de la feuille et à adapter :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim S As Shape
Dim Valeur As Double
Dim NB As Long
'supprime le shape précédemment créé
On Error Resume Next
ActiveSheet.Shapes("ZoneTexte").Delete
On Error GoTo 0
'compte le nombre d'occurrences dans la sélection en référence à "A1"
Valeur = Application.WorksheetFunction.CountIf(Selection, [A1])
'compte le nombre de cellules vides
NB = Application.WorksheetFunction.CountIf(Selection, "")
'si il y a au moins une cellule non vide dans la sélection, crée la zone de texte, la positionne
'en bas et à droite de la sélection et inscrit le résultat
If NB <> Target.Count Then
With Target(Target.Count)
Set S = ActiveSheet.Shapes.AddLabel(1, .Left + .Width + 5, .Top + .Height + 5, 50, 30)
End With
S.Name = "ZoneTexte"
S.TextEffect.Text = Valeur
End If
End Sub
Hervé.