boucler si valeur imputbox est vide

Sub client()

Dim client, Departement, i, Hauteur
Dim estPresent As Boolean

With Sheets("base client")
    client = ActiveCell
    
    ' Hauteur correspond au nombre d'éléments sur la page "base client"
    Hauteur = .Range("c2").CurrentRegion.Rows.Count
    
    i = 1
    estPresent = False
    ' On recherche tant qu'on n'a pas trouvé et tant qu'on n'est pas à la fin
    While Not estPresent And i <= Hauteur
        If .Cells(i + 1, 3) = client Then
            ' On a trouvé
            estPresent = True
        End If
        
        ' On passe à la ligne suivante
        i = i + 1
    Wend
    
    If Not estPresent Then
        ' On est dans le cas où la recherche a été infructueuse, et on demande d'ajouter le client
        Departement = InputBox("Client manquant, entrez un département")
                
        .Range("c" & Hauteur + 1).Value = client
        .Range("i" & Hauteur + 1).Value = Departement
    End If
   
    
End With
End Sub

 If Not estPresent Then
        ' On est dans le cas où la recherche a été infructueuse, et on demande d'ajouter le client
        Departement = InputBox("Client manquant, entrez un département")
                
        .Range("c" & Hauteur + 1).Value = client
        .Range("i" & Hauteur + 1).Value = Departement
    End If