[COLOR="DarkSlateGray"][COLOR="SeaGreen"]'Code placé dans le module de la feuille Onglet1
[/COLOR]
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim pl
If Target.Address = "$A$1" Then
Cancel = True
pl = Split(Me.[A1].Value, "!")
Worksheets(pl(0)).Activate
ActiveSheet.Range(pl(1)).Select
Selection.Interior.ColorIndex = Me.[A1].Interior.ColorIndex
End If
End Sub[/COLOR]