Macro efface données

Sub EffaceDonnees()
Dim DerLig As Long
Dim Wsh As Worksheet
Dim Plage As Range, Cel As Range

For Each Wsh In ThisWorkbook.Worksheets
'rectifie dans la ligne suivante accueil pour que cela soit écrit rigoureusement
'comme le nom de ta feuille "accueil"....................
    If Wsh.Name <> "Acceuil" And Wsh.Name <> "Recapitulatif" Then
        With Wsh
            DerLig = .Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row
            If DerLig > 10 Then
                Set Plage = .Range("A10:G" & DerLig)
                For Each Cel In Plage
                    If Left(Cel.Formula, 1) <> "=" Then
                        Cel.ClearContents
                    End If
                End If
            Next
        End With
    End If
Next
Set Plage = Nothing
End Sub