Bonjour, la compagnie !
Voilà, je bloque sur ActiveCell.FormulaR1C1 = "=DATEDIF(""05/9/2025"",RC[1],""d"")" pour ajouter "jour d'après" au résultat du jour soit 16. Ce qui devrait donner 16 jours d'après.
Private Sub Workbook_Open()
Feuil1.[B:B].Find(Date).Select
Selection.Font.ColorIndex = 5
ActiveCell.Offset(-1, -1).Select
Selection.ClearContents
ActiveCell.Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "=DATEDIF(""05/9/2025"",RC[1],""d"")"
ActiveCell.Offset(0, 1).Select
End Sub
D'avance merci !