Bonjour
Peut-être en plus court
Pour effacer les #VALEUR!
Sub Modifie()
Dim Cel As Range
For Each Cel In Range("A1:D" & [A65000].End(xlUp).Row)
If IsError(Cel) Then
Cel.Value = ""
End If
Next Cel
End Sub
Pour supprimer les lignes contenant #VALEURS!
Sub Supprime()
Dim Cel As Range
For Each Cel In Range("A1:D" & [A65000].End(xlUp).Row)
If IsError(Cel) Then
Cel.Rows.Delete
End If
Next Cel
End Sub
Cordialement