Problème texbox vba excel

Bonjour,
je vous écris car j'ai un problème dans une macro affectée à un bouton excel.
En effet dans le programme qui suit, lorsque je l'exécute, je suis confronté à une Erreur 424 "Objet requis" dès la premiere ligne
Je ne comprends pas et vous demande donc de l'aide. Voici le code:

Sub Bouton17_QuandClic()
'controles
If zone1.Text = "" Or zone2.Text = "" Or zone3.Text = "" Or zone4.Text = "" Then
MsgBox ("Veuillez entrer une adresse IP")
Else
If Not IsNumeric(Val(zone1.Text)) Or Not IsNumeric(Val(zone2.Text)) Or Not IsNumeric(Val(zone3.Text)) Or Not IsNumeric(Val(zone4.Text)) Then
MsgBox ("Veuillez saisir une adresse IP de type numérique")
Else
If Val(zone1.Text) >= 255 Or Val(zone1.Text) <= 0 Or Val(zone2.Text) >= 255 Or Val(zone2.Text) < 0 Or Val(zone3.Text) >= 255 Or Val(zone3.Text) < 0 Or Val(zone4.Text) >= 255 Or Val(zone4.Text) < 0 Then
MsgBox ("Veuillez entrer des valeurs comprise entre 0 et 255")
Else
'classe
If Val(zone1.Text) = 127 Then
MsgBox ("Valeur 127 interdite")
Else
If Val(zone1.Text) > 0 And Val(zone1.Text) < 127 Then
Range("G7") = "A"
Else
If Val(zone1.Text) > 127 And Val(zone1.Text) < 192 Then
Range("G7") = "B"
Else
If Val(zone1.Text) >= 192 And Val(zone1.Text) < 255 Then
Range("G7") = "C"
End If
End If
End If
End If
End If
End If
End If