bonsoir

Je voudrais qu'une macro puisse chercher dans une colonne le mot 3EMEA et qu'à chaque fois qu'il le trouve il incrémente un compteur.
La valeur finale du compteur doit être écrite dans une autre feuille dans une cellule précise.
Le code que j'ai écris ne fonctionne pas. Où est l'erreur ?

Merci d'avance

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub compter_eleves()
 
Dim compteur As Long
Dim classe As String
Dim cel As Range
 
 
        For Each cel In Worksheets("liste").UsedRange.Cells(4, 1).EntireColumn
            If classe = "3EMEA" Then compteur = compteur + 1
        Next
 
        WorksSheets("Classe").Select Range("F21") = compteur
 
End Sub