Formule VBA Rechercher remplacer dans une seule feuille

Bonjour tout le monde,

J'ai un petit soucis, j'ai crée cette formule :

Dim feuil As Worksheet

For Each feuil In ThisWorkbook.Worksheets

feuil.Cells.Replace What:="2019", Replacement:="2020"

Next feuil

End Sub

Dans le but de changer la date 2019 en 2020 et je l'ai fait jusqu'en 2027 en les reliant à des boutons, mais je n'arrive pas à sélectionner uniquement 2 pages de mon excel, je voudrais sélectionner les pages 5 et 6 appellé respectivement "Feuille calcul" et "Code macro".

J'espère que vous pourrais m'aider,

Merci d'avance pour votre temps

Essai cela :

Dim Feuil As Worksheet

For Each Feuil In ThisWorkbook.Sheets

If Feuil.Name = ("Feuille calcul") Or Feuil.Name = ("Code macro") Then

Feuil.Cells.Replace What:="2019", Replacement:="2020"

End If

Next Feuil

End Sub

Cordialement

Merci pour votre aide mais ca ne fonctionne pas,

je joint mon document excel :

Mais oui, ça marche

Exécutez la macro Appelée "Changements" après avoir parsemé ces deux feuilles de "2019" n'importe où!

Cdt

Celà fonctionne parfaitement !

Merci beaucoup à vous, bonne semaine ^^