Doubleckick dans cellules

[SIZE=2]Private [COLOR=navy]Sub[/COLOR] Worksheet_Before[COLOR=navy]Double[/COLOR]Click([COLOR=navy]ByVal[/COLOR] Target[COLOR=navy] As [/COLOR]Range, Cancel[COLOR=navy] As Boolean[/COLOR])
[COLOR=navy]Dim [/COLOR]F[COLOR=navy] As [/COLOR]Worksheet
[COLOR=navy]Dim [/COLOR]C[COLOR=navy] As [/COLOR]Range
      Cancel = [COLOR=navy]True[/COLOR]
      [COLOR=navy]If Not [/COLOR]Application.Intersect(Target, Columns(1))[COLOR=navy] Is Nothing Then[/COLOR]
            [COLOR=navy]For Each[/COLOR] F[COLOR=navy] In [/COLOR]Sheets
                  [COLOR=navy]If Not [/COLOR]F[COLOR=navy] Is [/COLOR]Sheets("Feuil1") [COLOR=navy]Then[/COLOR]
                        [COLOR=navy]Set[/COLOR] C = F.Cells.Find(Target.Value)
                        [COLOR=navy]If Not [/COLOR]C[COLOR=navy] Is Nothing Then[/COLOR]
                              Application.Goto F.Range(C.Address)
                        [COLOR=navy]End If[/COLOR]
                  [COLOR=navy]End If[/COLOR]
            [COLOR=navy]Next[/COLOR] F
      [COLOR=navy]End If
End[/COLOR] Sub[/SIZE]