Private Sub L_Click()
Dim cel As Range
Me.Hide
MsgBox "que c'est-il passé en cette année " & L & " ?", , "Et..."
Set cel = Sheets(C.Text).[B:C].Find(L, LookIn:=xlValues, lookat:=xlPart)
If Not cel Is Nothing Then
Application.Goto cel 'Sheets(C.Text).[B:C].Find(L), 1
Sheets(C.Text).Activate
Else
MsgBox "pas trouvé"
End If
Unload Me
End Sub