Créer un bouton ou fonction qui permette d'effacer ?

Bonjour,

j'ai essayé de regarder sur le net et sur ce site mais je me rends compte que j'ai de grandes lacunes...

Si vous avez le temps est ce que vous pouvez m'aider ?

J'aimerai créer un bouton ou fonction qui permette d'effacer les lignes ou il y a des erreurs comme:

#N/A Field Not Applicable

#N/A N/A

... autre

Dans cette Excell il y a juste 57 lignes mais il peut y avoir environ 2'000 voir 3000 lignes c'est pour cela que j'aimerais effacer avec un seul clique les données en rouge (pour faciliter les erreurs) qui peuvent se trouver sous toutes ces colonnes.

(L'excel est en anglais)

Merci pour votre aide.

Salutations.

Bonjour,

Un premier essai.

A tester.

Option Explicit
Option Private Module
Public Sub DeleteNA()
Dim tbl
Dim lRow As Long, lCol As Long
Dim r As Long, c As Long
    Application.ScreenUpdating = False
    With Feuil1.Cells(3, 1).CurrentRegion
        lRow = .Rows.Count: lCol = .Columns.Count
        ReDim tbl(1 To lRow, 1 To lCol)
        For r = 1 To lRow
            For c = 1 To lCol
                If .Cells(r, c).Value Like "*N/A*" Then .Cells(r, c).ClearContents
            Next c
        Next r
    End With
    Erase tbl
End Sub

Merci Jean-Eric

Superbe Merciii