Lancer une recherche sur plusieur feuille.

J'ai fichier excel avec un bouton qui lorsqu'on appuie dessus
recherche le jour actuel (c'est un calendrier). 

 







Option Explicit
Dim LaDate As Date

Sub Today_Click()
LaDate = Date
Dim Cellule As Range
For Each Cellule In Sheets("Avril - Mai - Juin").Range("C6:GD6") 'Plage où se situe tes dates
If Cellule.Value = LaDate Then
Cellule.Activate
Exit Sub
End If
Next
End Sub

 
voila le code actuel.

 
Pour des questions pratique, j'ai séparer le fichier en plusieur feuille (3 mois par feuille)
Malheureusement, le code que j'ai actuellement ne marche que sur la feuille appelé avril-mai-juin.

Est-ce que l'un d'entre vous aurait une idée comment faire pour qu'a partir d'une autre feuille
(en cliquant sur le bouton) cela change automatiquement de feuille et arrive sur le jour actuel.
 
Merci

Ce que tu peux faire est de colorer ta cellule de façon à ce que quand tu reviendras sur la feuille tu verras la cellule

FFkiller

si ton code fonctionne (chez moi cela ne marche pas, il me sélectionne toujours la cellule GD6, enfin ça n'a pas d'importance)
Place un bouton sur chaque feuille, il sont invisible à l'impression et dans l'évenement Click, sur celui de la feuille Avril - Mai - Juin tu mets

Sub Bouton1_QuandClic()
Sheets("juillet - aout - Sept").Activate 
Call ToDay_Click
End sub
Tu fais de même pour les feuilles suivantes

jpleroisse