If et 3 conditions

bonjour, j'ai un problème avec une troisième condition:

ma macro actuelle fonctionne tres bien:

Sub inscrit()

Dim i As Integer
'nombre de salle
Dim j As Integer
'nombre de participant
Dim k As Integer
'thème choisi
Dim r As Single

For r = 0.1 To 1 Step 0.05

For i = 2 To 77

For k = 13 To 16

For j = 2 To 2297

If Sheets(4).Cells(i, 5) = Sheets(1).Cells(j, k) And Sheets(4).Cells(i, 6) < ((Sheets(4).Cells(i, 4)) * r) Then
'affichage nom+prenom+club
Sheets(4).Cells(i, Sheets(4).Cells(i, 6) + 7) = Sheets(1).Cells(j, 6) & " " & Sheets(1).Cells(j, 7) & " " & Sheets(1).Cells(j, 8) & " de " & Sheets(1).Cells(j, 4)
'changement celule source en thème + N° de salle +jour
Sheets(1).Cells(j, k) = Sheets(1).Cells(j, k) & " " & Sheets(4).Cells(i, 1) & " " & Sheets(4).Cells(i, 2)
'incrémentation du nombre de personne dans la salle
Sheets(4).Cells(i, 6) = (Sheets(4).Cells(i, 6) + 1)
'concatenage avec le nom de l'expert
Sheets(5).Cells(i, Sheets(4).Cells(i, 6) + 1) = Sheets(1).Cells(j, 3) & " " & Sheets(4).Cells(i, 3)

Else

End If

Next
Next
Next
Next

End Sub

mais dès que je veux introduire une troisième condition qui est :

sheets(5).worksheetfunction.countif(sheets(5).range("1:100"),Sheets(1).Cells(j, 3) & " " & Sheets(4).Cells(i, 3))<2

là exel me dit "L’objet ne prend pas en charge cette propriété ou cette méthode (Erreur 438)"

j'ai rajouté cette condition avec un and dans le if.

je vous remercie d'avance de me dire où je me suis trompé.

cordialement

Adrien

Bonsoir

Enlèves Sheets(5). devant worksheetfunction

 worksheetfunction.countif(sheets(5).range("1:100"),Sheets(1).Cells(j, 3) & " " & Sheets(4).Cells(i, 3))<2

merci, en fait c'était tout bête!

bonne journée

adrien