Une variante qui rend dynamique le changement de date dans la cellule B1 de la feuille "planning"
Code:
Private Sub Workbook_Open()
Dim LaDate As String
LaDate = Sheets("planning").[B1]
Sheets("planning").[G1] = (Date - DateSerial(Year(LaDate), Month(LaDate), Day(LaDate))) - 20
End Sub
Non, il n'y a pas de piège.
Mais si tu changeais la date de la cellule B1 (genre 01/12/2012, pour l'année prochaine), sur laquelle sont basées les dates de la plage J3:AY3, tu devrais aussi modifier la macro.
Avec la variante du post #5, en changeant la date de la cellule B1, la macro reste opérationnelle puisque DateSerial est basé aussi sur la cellule B1.