Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A3:D8")) Is Nothing Then 'detection du changement sur la plage
i = (ActiveCell.Row) - 1 'variable de la ligne de la cellule changée ( ne pas changer sauf si modification du retour à la ligne )
j = 26 'variable de la colonne du calcul ( qui peut changer selon le nombre de colonne du tableau, elle doit se trouver en dehors de ce dernier)
Cells(i, j).FormulaLocal = "=AUJOURDHUI()" ' calcul de la fonction aujourd'hui
k = 7 'variable de la colonne mise à jour ( nombre de la lettre dans l'ordre alaphabetique aa=28 )
Range("Z" & i).Copy ' copie de la cellule du calcul aujourd'hui
Range("G" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False ' coller en valeur uniquement pour éviter que les données calcul se mettent à jour à chaque ouverture du fichier
End If