Sub Effacer_Mise_en_Forme()
Dim s As Worksheet
Set s = ActiveSheet
num_lig = s.Cells(Rows.Count, 1).End(xlUp).Row 'Valeur à ajuster
num_col = s.Cells(1, Columns.Count).End(xlToLeft).Column 'Valeur à ajuster
'Efface la mise en forme de la cellule A1 jusqu'à la cellule remplie la plus basse et la plus à droite
Range(s.Cells(1, 1), s.Cells(num_lig, num_col)).ClearFormats
'Efface la valeur si la cellule ne contient pas le signe "=" soit une formule
For a = 1 To num_lig
For b = 1 To num_col
If InStr(s.Cells(a, b), "=") = 0 Then
s.Cells(a, b).ClearContents
End If
Next b
Next a
End Sub