Sub CréerHyperTxt()
With Sheets("sommaire")
For j = 2 To 10 Step 2 'pour chaque colonne
fin = .Cells(.Rows.Count, j).End(xlUp).Row
For i = 3 To fin
.Hyperlinks.Add anchor:=.Cells(i, j), Address:="", SubAddress:="'" & .Cells(i, j) & "'!D4", TextToDisplay:=.Cells(i, j).Value
Next i
Next j
End With
End Sub