Salut,
Il me semble que tu pourrais incrémenter tes valeurs assez simplement.
Après avoir enregistré la valeur de la variable D par la ligne D = Range("CF8").Value, tu pourrais immédiatement incrémenter la cellule CF8 de 1 par ces deux lignes
Range("CF8").Value = Range("CF8").Value + 1
ActiveWorkbook.Save
puis continuer à enregistrer les autres valables nécessaires E et F.
De cette manière, la prochaine fois que tu utilises ton fichier de base, la valeur de la cellule CF8 a la bonne valeur. Non ?
Cordialement.