Calcul d'une valeur en fonction d'une valeur existante

je n'ai rien de concret je n'ai pas vraiment le temps d'apprendre, je suis vraiment un très gros débutant. Je compte regarder des tuto et tout les code qui s'en suit.

les code que j'ai en vba sont ridicule et ne fonctionne pas

Dim re As Integer, var As Integer

Sub retouche()

re = InputBox("veuillez indiquer le nombre de retouche en plus ou en moins")
    var = Range("D6").Value
        Total = var + re
    
    ActiveCell.Value = Total
    

End Sub

au lieu de dire je veux la cellule D6 je voudrais mettre je voudrais la cellule précédente

et finir pas insérer le résultats dans la cellule sélectionnée

cellule sélectionné (celle après la cellule du 20)

le code cherche la valeur de la cellule précédente c'est à dire (20) le reporte sur la cellule sélectionnée et l'additionne à la valeur donné dans l'inputbox

Re,

un très gros débutant

Si cela s'arrete la....

Rappel:

Je ne vois pas pourquoi elle ne devrait pas apparaître.

Ben oui, mais comment je fais pour la faire apparaitre

Vous avez des colonnes par date, pouvez quand-meme expliquer plus car votre exemple cellule A1, A2 n'est pas vraiment representatif vu la structure fichier 

Avec un peu de persévérance j'y arrive !!!

y a t'il quand même un moyen de rendre le code plus simple ?

Dim re As Integer, var As Integer

Sub retouche()

ActiveCell.Previous.Select
var = ActiveCell.Value

ActiveCell.Next.Select

re = InputBox("veuillez indiquer le nombre de retouche en plus ou en moins")
    var = Range("D6").Value
        Total = var + re
    
    ActiveCell.Value = Total
    

End Sub

pour la faire apparaitre il me suffira juste de cliquer deux fois sur la case que je vaux par exemple je clique deux fois sur D6 et ça m'ouvre la macro

pour ma part il apparait bien