Selection.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
ws.Name & "!" & c.Address, TextToDisplay:=c.Value
[COLOR="Red"]Sheets("Recherche").Cells(ligne, 2).Value = c.Offset(0, 1).Value
Sheets("Recherche").Cells(ligne, 3).Value = c.Offset(0, 2).Value[/COLOR]