Private ChoisEmployeDebut As Range
Private ChoisEmployeDebut As Range
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Set ChoisEmployeDebut = Range("AB5")
Set ChoisEmployeFin = Range("AB23")
If Not Intersect(Target, Range(ChoisEmployeDebut ,ChoisEmployeFin) Is Noting Then
[A1] = Target.Row
[B1] = Target.Column
Cancel = True
UserForm1.Show
End If
End Sub