Stopper une boucle while....

'cette fonction devrait arrêter une fois que la valeur saisie est valide (valeur entre les bornes et non nulle)
'notre fonction
Private Function saisir_nombre123(ByVal message As String, ByVal borne1 As Double, ByVal borne2 As Double) As Double
                 
 Dim nb_saisi As Variant
 Dim valide As Boolean
 valide = True

 valide = nb_saisi >= borne1 And nb_saisi <= borne2
 message = "Choisir un nombre entre les deux bornes"
 nb_saisi = Val(InputBox(message))

'si l'entrée est valide.
  If nb_saisi >= borne1 And nb_saisi <= borne2 Then
     Call MsgBox(nb_saisi)
  Else
     'cas ou c'est invalde
     While Not valide
         'si la chaine est vide, on considère que c'est invalide
         If nb_saisi = vbNullString Then
                saisir_nombre123 = -1E+21
                valide = False
        'si la chaine contient des carractères, on vérifie si la valeur qu'ils représentent
        'est dans l'intervale défini.
         Else
               If nb_saisi < borne1 Or nb_saisi > borne2 Then
                  Call MsgBox("Erreur!")
                  saisir_nombre123 = Val(InputBox(message))
                  valide = False
               End If
         End If
     Wend
  End If
 
End Function
'test notre fonction
Sub testfunction()
 Dim nb_saisi As Variant
 Dim message As String
 
 message = "Choisir un nombre entre les deux bornes"
 nb_saisi = Val(InputBox(message))

 
 Call saisir_nombre123(message, 1, 5)
End Sub