VBA Valeurs ne s'ajoutent pas

en utilisant la cellule IV1 de Feuil1 (à adapter), mets dans le module "ThisWorkbook" :

Code:

---

1 2 3 4 5 6

Private Sub Workbook_Open() If Date <> Sheets("Feuil1").[IV1] Then Sheets("Feuil1").[IV1] = Date 'remise à blanc de ce que tu veux End If End Sub

---

et remplace la ligne commentée par tes effacements.

Merci Daniel, ca fonctionne correctement!!!