Problème de boucle

Bonjour à tous,

J'ai écrit une boucle mais le problème c'est qu'elle ne s'arrête pas lorsque les cellules sont vides ...

Private Sub CommandButton2_Click()

'on se place sur la premire cellule
Range("B2").Select

'variable pour somme
Dim somme As Double

'boucle globale pour toute la feuille
While Selection.Value <> ""
somme = Range("B2").End(xlDown).Row


'boucle => Tant que la nature est la même
'que celle du dessous, on additionne
While Selection.Value = Selection.Offset(1, 0).Value
somme = somme + Selection.Offset(0, 8).Value
Selection.Offset(1, 0).Select
Wend
somme = somme + Selection.Offset(0, 1).Value

'ecriture de la somme
Selection.Offset(0, 10).Value = somme

'On change de ligne
Selection.Offset(1, 0).Select

Wend

End Sub

Voila mon code et je ne trouve pas la solution, dès que j'éssai quelque chose les calculs ne se font plus :@ :@

Si l'un de vous à une solution?????

Merci et Bon Lundi ; )