Sub client()
Dim client, Departement, i, Hauteur
Dim estPresent As Boolean
Application.ScreenUpdating = False
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
' nettoyage_base_client Macro
Sheets("base client").Select
Columns("I:I").Select
Selection.AutoFilter
Range("$I$1:$I$4700").AutoFilter Field:=1, Criteria1:="="
Range("C2:I4700").Select
Range("I7").Activate
Selection.Delete Shift:=xlUp
Columns("I:I").Select
Selection.AutoFilter
Columns("c:c").Select
Application.CutCopyMode = False
Sheets("test calcul auto").Select
End If
End With
End Sub