Problème boucle/affichage

Bonjour, je rencontre un problème lors de la création d'une boucle et de l'affichage de données.

Mon classeur contient 2 feuilles. La feuille 1 est une page d'accueil et la feuille 2 regroupe différentes informations.

Je souhaite que le programme vérifie chaque ligne contenue dans la feuille 2.

Nb1 est initialisé à 0 et s'incrémente de 1

Nb2 est initialisé à 0 et s'incrémente de la valeur contenue dans la cellule Q de la feuille 2

Si la valeur contenue dans la cellule H de la feuille 2 est égale à "797326" alors

On récupère la valeur contenue dans la colonne M de cette ligne

Si cette valeur est différente de " " et de "Intervenant" alors on incrémente Nb1 et Nb2

Tant que cette valeur est la même on continu d'incrémenter Nb1 et Nb2.

Si cette valeur change alors on réinitialise Nb1 et Nb2 et on recompte pour la nouvelle valeur en colonne M.

Je veux que la boucle affiche pour chaque valeur différente contenue dans la colonne M :

- la valeur de la colonne M dans la colonne B de la feuille 1

- la valeur Nb1 associé dans la colonne C de la feuille 1

- la valeur Nb2 associé dans la colonne D de la feuille 1

Vous trouverez ci dessous la boucle que j'ai tenter de réaliser :

Option Explicit

Sub A()

'Déclaration de variables
Dim CBexe As Variant
Dim Nom As Variant
Dim Nb1 As Variant
Dim Nb2 As Variant
Dim DerLigneFeuille1 As Integer
Dim LigneActuelle As Integer

Nb1 = 0
Nb2 = 0
LigneActuelle = 0

For Each row In Sheets(2).UsedRange.Columns("H:H").Cells
CBexe = row.Value
LigneActuelle = LigneActuelle + 1

If CBexe = "797326" Then
Nom = Sheets(2).Range("M" & LigneActuelle).Value

If Nom <> "" And Nom <> "Intervenant" Then
Nb1 = Nb1 + 1
Nb2 = Nb2 + Sheets(2).Range("Q" & LigneActuelle).Value
Else
Nb1 = 0
Nb2 = 0
End If

DerLigneFeuille1 = Sheets(1).UsedRange.Rows.Count
Sheets(1).Range("B" & DerLigneFeuille1).Value = Nom
Sheets(1).Range("C" & DerLigneFeuille1).Value = Nb1
Sheets(1).Range("D" & DerLigneFeuille1).Value = Nb2

End If
Next

End Sub

Merci pour vos réponses

Bonjour

Tu devrais joindre ton fichier...

Bye !

Bonjour,

Voici le fichier regroupant uniquement les informations utiles.