Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([champ], Target) Is Nothing Then
monurl = Target.Offset(, 1)
[C2] = monurl
Call Sheets("feuil1").WebBrowser1.Navigate(monurl)
Target.Select
Sheets("feuil1").WebBrowser1.Top = 100 + Cells(ActiveWindow.ScrollRow, 1).Top
End If
End Sub