Sub liens()
Dim i&, fin&
fin = Sheets("Niveau5").Range("A" & Rows.Count).End(xlUp).Row
For i = 3 To fin
Sheets("Niveau5").Cells(i, 1).Value = Replace(Sheets("Niveau5").Cells(i, 1).Value, "Ouvrir : ", "")
Sheets("Niveau5").Cells(i, 1).Hyperlinks.Add Anchor:=Sheets("Niveau5").Cells(i, 1), Address:= _
"..\..\Brol\" & Cells(i, 1) & ".pdf", TextToDisplay:= _
Cells(i, 1).Value
Next i
End Sub