Supression de valeur

Sub Sup_Valeur()
Cells.Replace "#VALUE!", ""
End Sub

Sub Sup_Valeur()
'
' Suppréssion des #VALEUR
'

    Application.SendKeys "%", True
    Application.SendKeys "L", True
    Application.SendKeys "RS", True
    Application.SendKeys "R", True
    Application.SendKeys "%c", True
    Application.SendKeys "#VALEUR!", True
    Application.SendKeys "%a", True
    Application.SendKeys "%{F4}", True
    Application.SendKeys "%{F4}", True
    
End Sub

Sub Sup_Valeur1()
Application.SendKeys "^h%c#VALEUR!%m{DEL}%a{ESC 2}"
End Sub

Sub Sup_Valeur2()
Application.SendKeys "^h%c#VALEUR!{TAB}{DEL}%a{ESC 2}"
End Sub