Sub Supprimer_Zero()
Dim Plage As Range, Cel As Range, T(), L&, C&
'Sheets(1).[A1:AN10000].Value = 0: End
Application.ScreenUpdating = False
Set Plage = Application.Range(Sheets(1).[AN1], Sheets(1).[A65536].End(xlUp))
T = Plage.Value
For L = 1 To UBound(T, 1): For C = 1 To UBound(T, 2)
If T(L, C) = 0 Then If Plage(L, C).Interior.ColorIndex = xlNone Then T(L, C) = Empty
Next C, L
Plage.Value = T
Application.ScreenUpdating = True
End Sub