Récupérer sous vba une valeur, modifier et écrire dans un champ

Sheets ("BDClient"). Activate
Range("A1").Select
Selection.End (xlDown).Select


'Déclaration de variable
Dim NumVar
NumVar = Activecell.value + 1 ' tu est sur la cellule active et tu incrémente de 1 sa valeur
 

'https://www.commentcamarche.net/faq/36886-methode-find-dans-vba-recherche-de-donnees-sous-excel

Sub test()
    Valeur_Cherchee = 10            'votre valeur a chercher
    Set PlageDeRecherche = ActiveSheet.Columns(1)       'plage de recherche colonne A
    '*******************************
    'méthode find, ici on cherche la valeur exacte (LookAt:=xlWhole)
    Set Trouve = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee, LookAt:=xlWhole)
    'traitement de l'erreur possible : Si on ne trouve rien :
    If Trouve Is Nothing Then
        'ici, traitement pour le cas où la valeur n'est pas trouvée
        AdresseTrouvee = Valeur_Cherchee & " n'est pas présent dans " & PlageDeRecherche.Address
    Else
        'ici, traitement pour le cas où la valeur est trouvée
        AdresseTrouvee = Trouve.Address
        Val_Plus_1 = Trouve.Value + 1
    End If
    MsgBox AdresseTrouvee & vbNewLine & vbNewLine & vbNewLine & Val_Plus_1
    'vidage des variables
    Set PlageDeRecherche = Nothing
    Set Trouve = Nothing
End Sub