Bonjour à tous, j'aurai besoin de votre aide pour une macro.


J'essaie d'automatiser un tableau, afin de pouvoir remplir automatiquement ce tableau à partir d'autres feuilles.

J'utilise notamment la fonction countif pour remplir ce tableau, sauf que j'ai du mal à utiliser cette fonction.
Je vous met le bout de code pour que vous puissiez me corriger.

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
Sub macro1()
 
With Sheets("MSPTT")
' Je déclare la plage variable de l'onglet MSPTT
Set mspui = Range([K1], [K65635].End(xlUp))
 
  End With
' Je selectionne la cellule E4 de la feuille TAUX et prend la valeur retournée par la fonction CountIF   
  Sheets("Taux MSP").Range("E4") = WorksheetFunction.CountIf(mspui, "LOIRE")
   '  Sheets("Taux MSP").Range("E5") = WorksheetFunction.CountIf(mspui, "PARIS")
    ' Sheets("Taux MSP").Range("E6") = WorksheetFunction.CountIf(mspui, "LYON")
    ' Sheets("Taux MSP").Range("E7") = WorksheetFunction.CountIf(mspui, "MARSEILLE PROVENCE")
    ' Sheets("Taux MSP").Range("E8") = WorksheetFunction.CountIf(mspui, "NICE")
    ' Sheets("Taux MSP").Range("E9") = WorksheetFunction.CountIf(mspui, "RENNES")
End Sub

Sauf que ça ne marche pas, j'ai que des 0 à la place des bonnes valeurs.

Vous savez d'ou peut venir le problème ? Merci pour votre aide.