Valérie

Salut le forum,

Si tu souhaites le faire en macro il faut que tu fasses une macro évenementielle à l'ouverture testant le jour

If Day(Date) = 29

Mais en plus il faudra tester si tu n'as pas déjà effetué l'opération du style recherche de la date et vérification des cellules adjacentes.

Private Sub Workbook_Open()
Dim CELLULE As Range, TROUVE As Boolean

If Day(Date) = 29 Then
TROUVE = False
For Each CELLULE In Feuil1.Range("A1:A" & Range("A1").End(xlDown).Row)
If CELLULE = Date And CELLULE.Offset(0, 1) = "Crédit" Then
TROUVE = True
End If
Next
If Not TROUVE Then
Set CELLULE = Feuil1.Range("A1").End(xlDown).Offset(1, 0)
CELLULE = Date
CELLULE.Offset(0, 1) = "Crédit"
CELLULE.Offset(0, 2) = 135.2
End If
End If
End Sub

Rm : ATTENTION A FEVRIER pas de 29!!

@ bientôt
Valérie