Bonsoir,
Bonsoir Eriic, Force Rouge
Comme je n'arrive pas à calculer l'équivalent VBA de la fonction Equiv(), j'inscris en dur la formule dans une cellule, puis nettoie cette cellule, après la sélection.
Peut-être?
Private Sub Workbook_Open()
With Feuil8
.Range("N1").FormulaR1C1 = "=MATCH(TODAY(),C2,0)"
Application.Goto .Cells(.Range("N1").Value, 1), True
.Range("N1").Clear
End With
End Sub
Bonne soirée