Private Sub Worksheet_Change(ByVal Target As Range)
Dim CEL As Range 'déclare la variable CEL (CELLlule)
For Each CEL In Rows(Target.Row).Cells 'boucle sur toutes les cellules CEL de la ligne de la cellule éditée
If IsError(CEL.Value) Then 'condition : si la cellule CEL est en erreur
CEL.Select 'sélectionne la cellule
MsgBox "Erreur !" 'message
Exit Sub 'sort de la procédure
End If 'fin de la condition
Next CEL 'prochaine cellule de la boucle
End Sub