Sub Client()
Dim Cellule As Range, Departement As Double, Hauteur As Long
With Sheets("base client")
Hauteur = .Range("c35000").End(xlUp).Row
Set Cellule = .Range("c" & Hauteur).Find(ActiveCell, lookat:=xlWhole)
If Cellule Is Nothing Then
Recommence:
Departement = Application.InputBox("Client manquant, entrez un département", , , , , , , 1)
If Departement = 0 Or Int(Departement) <> Departement Or Departement > 96 Then GoTo Recommence
.Range("c" & Hauteur + 1).Value = ActiveCell
.Range("i" & Hauteur + 1).Value = Departement
End If
End With
End Sub