Adresse de la cellule trouvée

Dim Trouve As Variant
[COLOR="Red"]Dim Cellule As Range[/COLOR]    
Range("A6:F180").Select
    Range("F6").Activate
    [COLOR="red"]Set Cellule = Selection.Find(What:="#N/A", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)[/COLOR]    
If Cellule Is Nothing Then
        MsgBox ("pas trouve")
    Else: MsgBox [COLOR="red"]Cellule.Row[/COLOR]
    
    End If

Sub Macro2()

Dim Trouve As Variant
Dim Cellule As Range

    Range("A6:F180").Select
    For Each Cellule In Selection
        If IsError(Cellule) Then
            MsgBox ("NA# Trouvé dans la cellule : " & Cellule.Address)
            Exit Sub
        End If
    Next
    MsgBox ("Pas de NA# trouvé")

End Sub

=EQUIV(VRAI;ESTERREUR(A1:A50))