Sub test()
Dim X&, DerL&, test&
DerL = Feuil1.Range("Q" & Rows.Count).End(xlUp).Row
For X = 2 To Derl
If WorksheetFunction.IsError(Range("Q" & X)) = True Then
If CVErr(xlErrNA) = Range("Q" & X) Then
MsgBox ("La ligne " & X & " ne contient pas de valeur autorisée"), vbCritical, "Erreur"
test = 1
End If
End If
Next X
If test = 0 Then MsgBox ("Aucune Erreur trouvée")
End Sub