Colorier les cellules vides

Bonjour,

Voici mon code qui me permet de vérifier des champs qui doivent être remplis aussi la vérification d'autres conditions avant qu'il mette un xx dans la cellule 42 si toutes les conditions sont vraies

j'aimerais bien , colorier les cellules qui sont vides après la vérification, j'ai essayé le code ce dessus mais il marche pas vraiment

est ce que vous pourrirez m'aider à trouver mon erreur

merci

    
 Dim MaPlage As Range, c As Range
Dim q As Integer

For q = 2 To ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
    Set maplage = Range("A:H, J:R").Rows(q)

    For Each c In maplage
If IsEmpty(c) Then c.Interior.ColorIndex = 3

    If CStr(ActiveSheet.Cells(q, 31).Value) = "Completed - Appointment made / Complété - Nomination faite" _
         And WorksheetFunction.CountIf(maplage, "") = 0 Then
        Select Case UCase(ActiveSheet.Cells(q, 14).Value)
            Case "INA_CIN"
                ActiveSheet.Cells(q, 42).Value = "XX"
        End Select

    End If

Next

Next q

Bonjour,

Met-nous le fichier à la disposition et explique-nous le résultat attendu. ça nous aidera à analyser la situation.

Bonjour,

Pour colorier les cellules vides, un simple format conditionnel devrait suffire...

Voir fichier joint.

Bonne journée.

Fabrice.

bonjour , voici le fichier excel

j'aimerais savoir comment faire pour colorier les cellules vides de A a H et de J a R et envoyer un message d'erreur qui permet d'aviser l'utilisateur de l'outil de remplir bien ces champs la