Traitement d'une plage de donnees

Bonjour,

j'aimerais bien faire quelques controles sur ces cases la:

from A To H , J To R, W To AO

j'ai essayé ce code la , il me semble correcte mais il m'affiche une arreur :

Unable to get the CountIf property of the WorksheetFunction class

      For q = 2 To Range("R65536").End(xlUp).Row

    Set MaPlage = Range("A" & q & ":H" & q & ",J" & q & ":R" & q & ",W" & q & ":AO" & q)
     For Each c In MaPlage.Cells
    If Len(c.Value) = 0 Then c.Interior.Color = vbYellow

    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 c
Next q
    

Bonjour,

Merci de joindre ton fichier pour le test.

Bonjour Raja

vous trouveriez en piece jointe le document excel