Option Explicit
Sub somme_nbspos()
Dim som#, nb%, x#
Do
x = InputBox("Donnez un nombre positif :" & vbCr _
& "Pour arrêter le processus , tapez -1")
If x < 0 Then Exit Do
som = som + x: nb = nb + 1
Loop
If nb = 0 Then MsgBox "aucun nombre positif!" Else _
MsgBox "somme = " & som & vbLf & "moyenne = " & _
Round(som / nb, 2)
End Sub