Supression ligne dont la valeur de la cellule est #N/A

Bonjour,

Je cherche à supprimer les lignes d'une sélection de cellules comprises dans une colonne dont la valeur est #N/A.

Pour ce faire, j'ai écris le code suivant :

Sub suppression_ligne_vide()
'supression de ligne dont le GER est nulle

    Set myrange3 = ActiveSheet.Range("H8:H72")

    For Each cell In myrange3
        cell.Select
        If cell.Value <> "#N/A" Then
            cell.EntireRow.Delete
        End If
    Next cell

End Sub

J'obtiens le message d'erreur suivant : Incompatibilité de type. J'en conclue donc que #N/A n'est pas reconnu par excel comme étant la valeur d'une cellule. Le problème ce que je ne sais pas comment Excel interprète les #N/A.

Avez-vous la solution où une piste ?

PS : j'ai joins un fichier excel pour que ce soit plus parlant.

Merci d'avance pour votre aide,

Cordialement,

BAtoine

Bonjour,

Sub suppressionLigne_SiErreur_NA()
    Dim x As Integer
    For x = 72 To 8 Step -1
        'Vérifie si les cellules de la colonne H contiennent une erreur
        If WorksheetFunction.IsError(Range("H" & x)) = True Then
            'Supprime la ligne s'il s'agit d'une erreur #N/A
            If CVErr(xlErrNA) = Range("H" & x) Then _
                Rows(x).EntireRow.Delete
        End If
    Next x
End Sub

Il faut faire ça du bas vers le haut, sinon le décalage à chaque suppression de ligne, ça va pas aller.

Bonjour oyobrans,

Merci beaucoup, ça marche parfaitement.

Bonne soirée,

Batoine