Formatage cellule manquante avant envoi formulaire

[perdinch]

Bonjour,

sous excel 2003, j'utilise une macro permettant d'envoyer une fiche de liaison contenant des données qui doivent être obligatoirement remplies avant l'envoi du fichier en pièce jointe par messagerie.si une ou plusieurs données obligatoires sont manquantes alors le formulaire ne peut être traNSMIS.Un msgbox indique quelles sont les cellules à compléter.Je voudrais en VBA formater les cellules non complétées en rouge

merci de votre aide

.Voici une partie du code:




Sub SendEMailwithAttachments()

'désactivation de la protection du classeur
ActiveSheet.Unprotect

Dim ol As Object, myItem As Object
Dim strHtml As String
Dim sortie As Variant

Dim Msg As String, Style As String, Title As String, Response As String, a As String, i As String
Dim Plg As Range, cel As Range
On Error Resume Next
'cellules devant être obligatoirement remplies avant envoi fiche de liaison
Set Plg = Range("B5,B6,B8,B9,B12,B13,B14,B16,B21,B22,B24,B25,D9,D12,D13,D15,D17,D18,D24,D25")
Application.ScreenUpdating = False

If Range("a31").Value = ("KO") Then
'détermine quelles sont les cellules incompl
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
For Each cel In Plg
Select Case cel
Case Is = ""
i = cel.Address
a = i & ", " & a
End Select
Next cel
MsgBox "Il manque une ou plusieurs donnée(s) dans la(es) cellule(s) suivante(s) " & a: Exit Sub
GoTo sortie
sortie: Exit Sub


end sub