XL 2016 Exécution Macro sous condition

[Clotaireexcel]

Bonjour à tous les membres de la communauté. Je suis novice en Excel si bien que des situations simples (peut-être)
Peuvent paraître complexe pour moi. Bref.

J'ai écris une Macro et je veux qu'à son exécution, si un certain nombre de conditions ne sont pas réunies, qu'elle ne s'exécute pas.

Elle est schématisé comme suit:

Sub test()
Dim r as range
Set ws = feuil3
If ws.range ("F4").value <> "2023" ou "2024" ou "2025" Then Exit sub
Feuil2. Activate
End if
End sub


Voilà mon code, mais il ne marche pas.

Quelqu'un saurait - il m'aider.

Merci d'avance

 

[Clotaireexcel]

Allez, histoire de vider le magasin
Je baisse le store avec ce one-liner

Sub One_Liner()
If Not IsError(Application.Match([F4], Array(2023, 2024, 2025), 0)) Then Feuil2.Activate
End Sub

Evidemment en 2026, il faudra mettre la main dans le code

Justement, en 2026, il faudra mettre la main dans le code
C'est ça l'objectif

 

[Staple1600]

Re

Je vous dire qu'il faudra amender le code
(tout comme pour 2027 etc...)
Array(2023, 2024, 2025,2026,2027)

 

[Clotaireexcel]

Re

Je vous dire qu'il faudra amender le code
(tout comme pour 2027 etc...)
Array(2023, 2024, 2025,2026,2027)

Oui oui, c'est bien noté