Sub EffacerLiens()
Dim t, c As Range
t = Timer
Application.ScreenUpdating = False
With Feuil1
For Each c In .UsedRange
If c.Hyperlinks.Count Then
c.Hyperlinks(1).Delete
c.HorizontalAlignment = xlCenter
End If
Next
End With
MsgBox "Durée " & Format(Timer - t, "0.00 \s")
End Sub