Vba multiple de 3

Bonsoir

tiens je viens d'ecrire ca

Private Sub Commande0_Click()
depart = Int(InputBox("Saisir la 1ere note "))
fin = Int(InputBox("Saisir la derniere note "))
If fin <= depart Then
MsgBox "Note de fin inferieur ou egale a la note de départ", vbCritical, "Erreur "
Exit Sub
End If

i = depart
Do Until i = fin
reste = i / 3

If reste = Int(reste) Then
multiple = multiple & " " & i
End If
i = i + 1
Loop
If multiple = "" Then
MsgBox "Aucun multiple trouvé entre " & depart & " " & fin
Exit Sub
End If

MsgBox "les multiples compris entre " & depart & "et " & fin & " sont : " & multiple
End Sub