Effacer texte aprés ajout VBA

Bonjour, j'ai créé un code pour enregistrer un client

Sub Ajout_Info()
Code_Client = Range("B3").Value
Nom_Client = Range("B5").Value
Categorie_Client = Range("B7").Value
Mail_Client = Range("B9").Value
Telephone_Client = Range("B11").Value
Chiffre_Affaire_Client = Range("B13").Value
Departement = Range("B15").Value
Num_Departement = Range("B17").Value
Qualité_Client = Range("B19").Value

Sheets("Base de données Client").Select
Range("B3").Select
If Range("B4").Value <> "" Then Range("B3").End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Code_Client
ActiveCell.Offset(0, 1).Value = Nom_Client
ActiveCell.Offset(0, 2).Value = Categorie_Client
ActiveCell.Offset(0, 3).Value = Mail_Client
ActiveCell.Offset(0, 4).Value = Telephone_Client
ActiveCell.Offset(0, 5).Value = Chiffre_Affaire_Client
ActiveCell.Offset(0, 6).Value = Departement
ActiveCell.Offset(0, 7).Value = Num_Departement
ActiveCell.Offset(0, 8).Value = Qualité_Client

Sheets("Saisie").Select

End Sub

J'aimerais que quand je rentre les caractéristiques du client (nom_client, departement...) sur la feuille saisie que une fois que le client est enregistré dans la base que ce que j'ai écrit s'éfface lorsque je revien sur la feuille.
Merci de m'éclairer
Cordialement
Tortua