Autres effacer des cellules ne contenant pas de liens hypertexte

Sub Effacer()
    Dim l As Long, c As Long, DerLig As Long, DerCol As Long
    Application.ScreenUpdating = False
    DerLig = Range("A" & Rows.Count).End(xlUp).Row
    DerCol = Range("A1").End(xlToRight).Column
    For c = 1 To DerCol
        For l = 2 To DerLig
            If Cells(l, c).Hyperlinks.Count = 0 Then Cells(l, c) = ""
        Next l
    Next c
End Sub

Sub Truc()
    Dim c As Range
    With Sheets("Sheet2").Range("A1").CurrentRegion
        For Each c In .Offset(1).Resize(.Rows.Count - 1)
            If c.Hyperlinks.Count = 0 Then c = Empty
        Next c
    End With
End Sub

Sub Truc()
    Dim c As Range

    With Sheets("Sheet2").Range("DATAS")
        For Each c In .Cells
            If c.Hyperlinks.Count = 0 Then c = Empty
        Next c
        For Each c In .Cells
            If c.Hyperlinks.Count > 0 And c.Column > c.End(xlToLeft)(, 1).Column Then
                c.Copy c.End(xlToLeft)(, 1)
                c = Empty
            End If
        Next
    End With
End Sub

Sub Effacer()
    Dim l As Long, c As Long, DerLig As Long, DerCol As Long
    Application.ScreenUpdating = False
    DerLig = Range("A" & Rows.Count).End(xlUp).Row
    DerCol = Range("A1").End(xlToRight).Column
    For c = DerCol To 1 Step -1
        For l = 2 To DerLig
            If Cells(l, c).Hyperlinks.Count = 0 Then Cells(l, c).Delete shift:=xlToLeft
        Next l
    Next c
End Sub