Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("F1")) Is Nothing Then
Cancel = True
If Sh.Name <> "Paramètre" And Sh.Name <> "Récapitulatif Annuel" Then
Sheets("Récapitulatif Annuel").[A1] = Sh.Name
Sheets("Récapitulatif Annuel").Visible = -1
Sheets("Récapitulatif Annuel").Select
Sheets("Récapitulatif Annuel").Range("B1").Select
End If
End If
End Sub