Positionnement sur une cellule en fonction de l'heure

Bonjour tout le monde

Depuis que j'ai légèrement modifié la disposition de ma feuille saisie

Le curseur ne se positi

onne plus sur la case juste de la tranche horaire lors de l'ouverture de la feuille saisie.

Bonjour,

la macro d'ouverture:

Private Sub Workbook_Open()
     With Sheets("Saisies")
          If StrComp(ActiveSheet.Name, .Name, 1) = 0 Then Sheets(2).Activate
          Sheets("Saisies").Activate              'choisir la 2eme feuille (pour provoquer les évenements
     End With
End Sub

Cdlt

C'est pas ça

ça doit être le code suivant qui est a changer

' Positionnement sur les cellules en fonctionde l'heure

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

If StrComp(Sh.Name, "Saisies", 1) = 0 Then 'si la feuille activée est "Saisies"
Temps = Format(Time, "hh:mm") 'l'heure en texte
If Temps < Range("I6").Value2 Then 'l'heure est avant 9:00
Application.Goto Range("J6")
ElseIf Temps < Range("I7").Value2 Then 'avant 14:00
Application.Goto Range("J7")
Else 'autrement
Application.Goto Range("J8")
End If
End If

End Sub

J'ai trouvé la solution. Merci