Fonction nb.si/ countif sous vba

Bonjour à tous,

J ai un petit soucis j aimerais coder une fonctuion countif sous Vba mais j ai quelques soucis. J aimerais que Macro compte en respectant deux conditions dans deux plages de donn2es differentes.

Une idee du code :
Sub RemplirTab()

Dim I As Integer
Dim NbClients As Double
NbClients = Range("b65536").End(xlUp).Row
NbClients = NbClients - 6

For I = 0 To NbClients
Application.WorksheetFunction.CountIf(and(thisworkbook.worsheets("summary").Range("c3").offset(I,0), "Bu");(thisworkbook.worsheets("summary").Range("f3").offset(I,0), "respect")).Value = thisworkbook.worksheet("analysis").range("B2")

Next I
end sub

merci d avance pour votre aide