Afficher plusieurs cellules dans un textbox

Bonjour à tous,

J'ai besoin de votre aide pour me débloquer d'une situation. Je suis un novice sur VBA et je voudrais faire afficher dans un textbox plusieurs cellules.


Elève Moyenne/20
Toto 1 12,00
Toto 2 14,00
Toto 3 9,00
Toto 4 4,00


Je voudrais faire afficher dans un textbox les élèves qui sont au dessus de la moyenne, voila le code:

If ws.Cells(x,y) > 10 Then

TextBox1.value = (ws.Cells(i, 2))

End If

Mais rien ne s'affiche.

Merci d'avance pour votre aide. :)