Dim C As Range
With Sheets("Export Actes en ligne")
.[K:K].Hyperlinks.Delete
.[K:K].Replace "webedit", "233 - Affaires\2331-Service\webedit", xlPart
For Each C In .Range("K2:K" & .Range("K65536").End(xlUp).Row)
If C <> "" Then C.Hyperlinks.Add C, C
Next
End With