Sub EssAi()
Dim i As Long, DerLig As Long
Application.ScreenUpdating = False
DerLig = Feuil1.Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To DerLig
If Range("A" & i) <> "" Then Range("A" & i).Hyperlinks.Delete
Next i
Application.ScreenUpdating = True
End Sub