remplissage de cellule suivant condition en VBA

Private Sub Worksheet_Change(ByVal Target As Range)

'Macro: Mettre le plan PDF à jour'

Dim Indice As String
Dim PDF
Indice = "a"

'La MsgBox s'ouvre dès lors que la valeur de la cellule Bx (ou x est le numéro de ligne) est différente de "" ou "a"'

If Not Application.Intersect(Target, Range("B5:B3000")) Is Nothing Then
If Not Target = Indice Or Target = "" Then
PDF = MsgBox("Attention: Le plan PDF est-il à jour?", vbYesNo, "Attention")
If PDF = vbYes Then
MsgBox ("PDF ok")
Else
'la plage de cellule de Ax à Xx doit etre remplis en rouge'

End If

End If

End If

End sub

Cliquez pour agrandir...