Code à peaufiner

Bonjour,

J'ai ce code pour un feuillet :

Private Sub Worksheet_Calculate() 'au recalcul dans l'onglet
ThisWorkbook.Activate
Select Case Range("A1").Value
    Case Is = "cochon"
        ThisWorkbook.Sheets("Formulaire_cochon").Select
    Case Is = "poule"
        ThisWorkbook.Sheets("Formulaire_poule").Select
End Select
End Sub

Au lieu que les 2 "select" portent sur les feuillets mentionnés, je voudrais préciser une cellule (par exemple la cellule A10 de chaque feuillet).

Le but est donc que selon la valeur indiquée dans la case A1, l'utilisateur soit automatiqement redirigé vers la case indiquée dans le code.

J'ai essayé de bidouiller avec ce que j'ai trouvé dans les forums (Range ou Cells etc...) mais ça ne fonctionne pas.

Quelqu'un sait-il comment compléter ce code?

Bonjour

à tester

Private Sub Worksheet_Calculate() 'au recalcul dans l'onglet
ThisWorkbook.Activate
        ThisWorkbook.Sheets("Formulaire_" & range("A1")).activate
        activesheet.range("A10").select
End Sub
 

super! Merci!

Pour les motivés, j'ai ce problème qui reste sans solution : https://forum.excel-pratique.com/post405855.html#p405855

(... et qui m'embête sacrément...)