Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range('A1')) Is Nothing Then
cel = Range('A1').Value
With Worksheets(1).Range('a2:a500') ' plage à modifier
Set c = .Find(cel, LookIn:=xlValues)
adres = c.Address
End With
Range(adres).Activate
End If
End Sub