macro de récupération de données dans listebox

Bonsoir,

Dans la macro suivante je récupère dans une liste le nombre d'occurrence correpondant au nom tapé dans le textbox. Ces noms sont en colonne A sur ma feuille.

J'aimerais en fait récupérer dans la liste le nombre d'occurrence de la colonne C de ma feuille correspondant au nom tapé dans le textbox

Merci

Private Sub TextBox1_Change()

Dim WS As Worksheet
Dim Plage As Range, Cell As Range
Dim Recherche As String, Adresse As String
Dim Ligne As Variant
Dim C As Object
ListBox1.Clear

Recherche = TextBox1
If Recherche = "" Then Exit Sub

For Each WS In Worksheets
Ligne = Worksheets(WS.Name).Range("" & "A" & "65536").End(xlUp).Row
Set Plage = Worksheets(WS.Name).Range("" & "A" & "2:" & "A" & Ligne)
With Plage
Set C = .Find(Recherche)
If Not C Is Nothing Then
Adresse = C.Address
Do
ListBox1.AddItem C
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> Adresse
End If
End With
Next WS
End Sub