Quelqu'un peut m'aider je sais que mon erreur viens de mon "nb as range"

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Sub mafonctionCompter(intCOlorIndex, strtext As String, nb As Range)
nb définit ma cellule

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Worksheets("Feuil1").Range(nb).Value = CompterCellules

Voici mon code entier.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub mafonctionCompter(intCOlorIndex, strtext As String, nb As Range)
 
Dim CompterCellules As Integer
Dim Cellules As Range
'compter rose saumon 38
Dim LaDerniere As Integer
Dim i As Integer
 
With Worksheets("Feuil2")
        LaDerniere = Worksheets("Feuil2").Cells(56555, 1).End(xlUp).Row
 
        For i = 1 To LaDerniere
 
        If Range("A" & i).Interior.ColorIndex = intCOlorIndex And Range("A" & i).Value = strtext Then   ' modifiez le code couleur 38 par celui de votre choix
            CompterCellules = CompterCellules + 1
            End If
        Next i
 
Worksheets("Feuil1").Range(nb).Value = CompterCellules
 
End With
 
End Sub
 
Sub text1()
Call mafonctionCompter(4, "2", "A4")
End Sub