Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Deb As Range, Fin As Range
On Error GoTo Error_001
Application.EnableEvents = False
With Sheets("CONTEXTE A CADRER")
If Not Intersect(.Range("F5:G5"), Target(1, 1)) Is Nothing Then
Set Deb = .Rows("3:3").Find(What:=CDate(.Range("F5").Value))
Set Fin = .Rows("3:3").Find(What:=CDate(.Range("G5").Value))
Range(Deb, Fin).Activate
ActiveWindow.Zoom = True
ElseIf Not Intersect(.Range("F6:G6"), Target(1, 1)) Is Nothing Then
Set Deb = .Rows("3:3").Find(What:=CDate(.Range("f6").Value))
Set Fin = .Rows("3:3").Find(What:=CDate(.Range("G6").Value))
Range(Deb, Fin).Activate
ActiveWindow.Zoom = True
End If
End With
Error_001:
Target.Select
Application.EnableEvents = True
End Sub