MsgBox selon condition

bonjour le forum

Voila j'ai un message qui s'affiche si la date arrive a échéance - 95 jours sur la colonne H

mais je voudrais que ce message NE S'AFFICHE PAS si dans une date est remplis en colone J est ce faisable?

Merci de votre aide

Fichier ci joint pour explication

Bonjour

Modifies ta macro

Sub RECHERCHE()
Dim pl As Range 'déclare la variaable pl
With Sheets("FEUIL1") 'prend en compte l'onglet "Feuil1"
    .Select 'sélectionne
    Set pl = .Range("H2:H" & .Range("H65536").End(xlUp).Row) 'définit la variable pl
End With 'fin de la prise en compte de l'onglet "Feuil1"
For Each cel In pl 'boucle sur toutes les cellule éditées cel de plage pl
    If CDate(cel.Value) - 95 < Date And cel.Offset(0, 3) = "" Then 'condition : si la date + 60 jours de la cellule cel est supérieure à la date du jour
        MsgBox "Prévoir la revision " & cel.Offset(0, -6) & " détenu par   " & cel.Offset(0, -5) & " " & cel.Offset(0, -4) & " " 'message
    End If 'fin de la condition
Next cel 'prochaine cellule cel de la plage pl
End Sub

Bonjour,

Vu qu'il peut y avoir des espaces dans la colonne J, modifies ta macro, remplaces :

    If CDate(cel.Value) - 95 < Date Then

par

    If CDate(cel.Value) - 95 < Date And Trim(cel.Offset(0, 2).Formula) = "" Then

super un gros merci