Public Pos As Integer
Private Sub essai_Click()
Dim celluletrouvee As Date
Dim jour As Date
jour = essai.Value
With Range("a3:a80")
End With
If jour = 0 Then Exit Sub 'Null
Set celltrouvee = Range("a:a").Find(what:=jour, LookIn:=xlValues, lookat:=xlWhole)
celltrouvee.Select
essai.Top = Pos
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [A2]) Is Nothing Then essai.Visible = True
If Not Intersect(Target, [A1]) Is Nothing Then essai.Visible = False
Sheets("modele (2)").Select
Pos = Target.Top
End Sub