XL 2019 copie/coller

Sub MAJdates()
Application.ScreenUpdating = False
With Sheets("DERNIER RESULTS")
    DL = .Range("B65500").End(xlUp).Row
    f = "=SIERREUR(SI(B3<=17;RECHERCHEV(B3;'CALENDRIER SAISON'!$B$4:$D$20;3);RECHERCHEV(B3;'CALENDRIER SAISON'!$E$4:$G$20;3));"""")"
    .Range("D3:D" & DL).FormulaLocal = f
    .Range("D3:D" & DL) = .Range("D3:D" & DL).Value
End With
End Sub

=SIERREUR(SI(B3<=17;RECHERCHEV(B3;'CALENDRIER SAISON'!$B$4:$D$20;3);RECHERCHEV(B3;'CALENDRIER SAISON'!$E$4:$G$20;3));"")