Nombre d'occurence et somme

Bonsoir le forum,

dans un classeur comportant plusieurs feuilles je souhaite connaitre l’occurrence d'une chaine de caractère qui

peut se trouver sur plusieurs feuilles et faire la somme des valeurs se situant sur la cellule suivante.

J'ai cette macro mais je ne somme que sur la feuille active et non sur toutes les feuilles.

Je ne trouve par l'erreur

Sub Compter()

Dim Commande As String

Dim Cel As Range

Dim CompteurHeure, Compteur As Long

Dim sht As Worksheet

Commande = InputBox("Entrez la commande recherchée", "Recherche") 'saisie de la commande recherchée

For Each sht In Worksheets 'boucle sur toutes les feuilles du classeur

For Each Cel In ActiveSheet.UsedRange 'boucle sur les cellules d'une feuille

If Cel.Value = Commande Then

CompteurHeure = Cel.Offset(0, 1).Value + CompteurHeure ' somme des heures

Compteur = Compteur + 1 ' nombre d'occurence

End If

Next

Next

MsgBox "La commande " & Commande & " représente " & CompteurHeure & " heure(s) de travail pour " & Compteur & " occurence(s)", recherche

End Sub

Bonjour,

à tester,

For Each sht In Worksheets 'boucle sur toutes les feuilles du classeur

   For Each Cel In sht.UsedRange 'boucle sur les cellules d'une feuille