Bonjour,
Si l'objectif et d'ajouter automatiquement la formule à l'ajout de nouvelle données, VBA est inutile, puisqu'un tableau structuré (Insertion --> Tableau) rempli ce travail (voir fichier en PJ).
Sinon, 2 macros possibles :
Sub EcrireFormule()
Dim Lig As Long, LigMax As Long 'Déclaration des variables
With Sheets("Feuil10") 'Tout objet commençant par "." se rapporte à cette feuille
LigMax = .Range("A" & Rows.Count).End(xlUp).Row 'Détermine la dernière ligne non vide en colonne A
For Lig = 2 To LigMax 'Boucle sur les lignes
.Range("C" & Lig).FormulaR1C1 = "=TODAY()-RC[1]" 'Ajout de la formule en colonne C
Next Lig
End With
End Sub
Sub EtendreFormule()
Dim Lig As Long, LigMax As Long
With Sheets("Feuil10")
LigMax = .Range("A" & Rows.Count).End(xlUp).Row
.Range("C2").AutoFill Destination:=.Range("C2:C" & LigMax)
End With
End Sub
PS : ces macros doivent être déclenchées manuellement, mais il est possible de lier leur exécution à une macro événementielle (déclenchement automatique en fonction d'un événement particulier).