Bonsour®
s'il s'agit de saisies, de capture, de copier collé ou d'import,
il n'est pas nécessaire de passer par VBA
il suffit de modifier les options Windows dans le panneau de configuration région langue et préciser les bornes de reconnaissance
(fenêtre de 100 ans pour les années)
si les dates sont déjà dans Excel, la reconnaissance automatique "by Design" aura déjà fait son œuvre,
(voir la barre de formule si les dates sont sous forme jj/mm/aaaa)
il faudra adapter alors la procédure VBA à la fenêtre du panneau de configuration...
(ajouter ou retirer 100 ans aux dates concernées)...
cela n'agit que sur l'affichage (format)
pas sur la valeur interne ...
plutôt :
=SI(ANNEE(A1)<annéemini;MOIS.DECALER(A1;1200);A1))
avec annéemini=2000 ou 1950