michel

bonsoir Jean-Michel

tu peux tester

Sub ControlePlageDansFeuil1()
Dim Cible As Byte
On Error Resume Next
Cible = Application.WorksheetFunction. _
Match("erreur", Worksheets("Feuil1").Range("D580"), 0)
If Not Cible = 0 Then MsgBox "Attention :vous allez imprimer une page avec une erreur ."
End Sub


bonne soiree
MichelXld