On souhaite faire la somme

de plusieurs nombres positifs en arrêtant ce calcul lors de la saisie de 0.

On procède ensuite au calcul de la moyenne de ces nombres. Le code ne fonctionne pas. Pourquoi ?

Sub moyenne_nombres()

Dim

somme As Double, x As Double, n As Integer

 x=0

    n=0

somme=0

 Do While x=­0

     somme=somme+x

      n=n+1       

Loop

x=InputBox("Entrez un nombre réel")     

MsgBox"Moyenne des " & n & " nombres = "

& somme/n

End

Sub