Xmen je te remercie pour tout tes reponses, je viens enfin de trouver en revanche maintenant je voudrai selectionner les lignes visibles pour pouvoir les trier
Il ne fait rien du tout, qu'est ce que je pourrai rajouter pour que celui-ci lisent les lignes visible selectionné?
Sub SuivreLien()
Dim xHyperlink As Hyperlinks
Dim Cell As Range
Dim c As Range, f$, n%
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set c = Application.Selection
Set c = Application.InputBox("Range", xTitleId, c.Address, Type:=8)
For Each c In Selection
f = c.Formula
If f Like "=HYPERLINK(*" Then
n = InStr(f, "(") + 1
f = Mid(f, n, InStrRev(f, ",") - n)
ThisWorkbook.FollowHyperlink Evaluate(f)
End If
Next
End Sub
Dernière petite précision pour que je puisse travailler tranquillement.