VBA, InputBox

Bonjour,

svp

voila j'ai un souci avec inputBox, lorsque je click sur annuler ou si je ne saisi rien a inputbox, VBA active le debogueur,
je souhaiterais qu'il ferme la inputbox si j'annule,

MEEEERCI




Private Sub CommandButton2_Click()

Range("a1:I30").Interior.ColorIndex = xlNone

Dim msg As Double

msg = InputBox("quelle est la moyenne glissante? ")


'If msg = "" Then Exit Sub

'Dim msg
'msg = InputBox
'If msg = vbCancel Then
'Exit Sub
'End If

Dim c As Range

For Each c In ActiveSheet.Range("a1:I30")

If c < msg And c <> "" Then
c.Interior.Color = RGB(168, 168, 168)
End If

Next

End Sub