Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Dim colE As Range
Dim colG As Range
Dim colI As Range
Dim colK As Range
Dim colM As Range
Dim plage As Range
Dim ref As String
Dim c As Range
Set colE = Application.union(Range("E15"), Range("E20"), Range("E25"), Range("E30"), Range("E35"), Range("E40"), Range("E45"), Range("E50"), Range("E55"), Range("E60"))
Set colG = Application.union(Range("G15"), Range("G20"), Range("G25"), Range("G30"), Range("G35"), Range("G40"), Range("G45"), Range("G50"), Range("G55"), Range("G60"))
Set colI = Application.union(Range("I15"), Range("I20"), Range("I25"), Range("I30"), Range("I35"), Range("I40"), Range("I45"), Range("I50"), Range("I55"), Range("I60"))
Set colK = Application.union(Range("K15"), Range("K20"), Range("K25"), Range("K30"), Range("K35"), Range("K40"), Range("K45"), Range("K50"), Range("K55"), Range("K60"))
Set colM = Application.union(Range("M15"), Range("M20"), Range("M25"), Range("M30"), Range("M35"), Range("M40"), Range("M45"), Range("M50"), Range("M55"), Range("M60"))
Set plage = Application.union(colE, colG, colI, colK, colM)
If Not Intersect(Target, plage) Is Nothing Then
If Target > "" Then
ref = Target.Value
Else
MsgBox "Référence incorrecte"
Exit Sub
End If
With Worksheets("Feuil1").Range("A1:A15") ' problème avec feuille 4, zone restreinte pour le test
Set c = .Find(ref, LookIn:=xlValues)
If Not c Is Nothing Then
MsgBox " Cellule " & c.Address & " de la feuille 1" ' votre code copie de ligne à insérer ici
Else
MsgBox "Référence inexistante"
End If
End With
Else
' a définir
End If
End Sub