Demande de code VBA excel

Bonjour,
Pas de soucis vous ne m’offensez pas ;)
Oui j'ai qqes notions en vba afin de "dupliquer" adapter les lignes de codes à la taille complète de mon fichier.
(Je vais qd même pas tout vous faire faire;) ça m'aide à apprendre;) au pire je reviendrais vers vous si j'ai des questions plus poussées)
Concernant la feuille de sortie la voici en image la première version plus simple que la version ultime. (je sais pas ajouter un fichier excel ici...)


voici les correspondances:
feuille d'origine feuille de sortie
B6 et autres n° de compte ---------> B2 (liste déroulante de choix permettant de filtrer la seconde liste déroulante)
C9, C25 etc --------------------------------> B3 (liste déroulante de choix permettant de définir l'article à analyser)
J10, J26(suivant le code choisi)-> B7 (pour le mois de janvier car autre numéro de colonne suivant le mois)
D23, D45(suivant le code choisi)->B8 (pour le mois de janvier car autre numéro de colonne suivant le mois)
H23,H45(suivant le code choisi)-->C8 (pour le mois de janvier car autre numéro de colonne suivant le mois)
J23,J45(suivant le code choisi)--->B9 (pour le mois de janvier car autre numéro de colonne suivant le mois)

Mon principal problème est que le fichier d'origine, le nombre de lignes marquées XXX (qui sont des entrées et sorties varient d'un article à l'autre et d'un mois à l'autre.

Je sais pas si j'ai été assez clair mdr

Pour version ultime ça sera le même principe sauf que là je chercherai à afficher dans la feuille de sortie les entrées et sorties journalière sur le modèle suivant. mais ça, ça sera pour plus tard car à mon avis plus long et plus compliqué.


Encore merci pour votre aide

Il y a un problème de conceptualisation, je pense. C'est difficile/impossible/non souhaitable d'afficher directement le tableau tel que dans ta première capture d'écran de ce matin.
A mon avis, il faut passer par un tableau intermédiaire, qui serait une vraie base de données (et pas un copier-coller d'un pdf --> d'ailleurs, l'outil n'arrive pas à générer d'export Excel ?!).

Je dois pouvoir amorcer la constitution de cette base de données.
Il me manque deux trucs... Tous les articles associés à un compte sont à sa suite ? Et les autres "comptes" apparaissent plus bas dans la feuille ?

A+

Merci pour votre aide.
C'est bien ce que je pensai pour le coté construction d'une base de donnée en back sur laquelle on extrait ensuite.
Concernant le logiciel il est malheureusement impossible de sortir les données en excel.. ca aurait été trop beau..
Ensuite pour les infos complémentaires:
Tous les articles associés à un numéro de compte sont à la suite
les autres comptes apparaissent plus bas dans la feuille

Autre petit point et surement utile.. vu que c'est une conversion pdf en excel, a chaque nouvelle page pdf apparait l'entête de la page (lignes en jaune) et si les information d'un article sont coupé il y a les infos de la ligne rouge qui diffèrent par rapport au début normal des infos de l'article.

Voici une copie d’écran montrant la redondance des entête et reprise des infos en cours d'un article. il ne faut pas tenir compte des numéros de ligne j'ai copié le passage dans une autre feuille.



Si vous souhaitez je peux préparer un fichier source "allégé et anonymisé". et vous l'envoyer par mail.

Merci d'avance

Je viens même de me rendre compte que le fait qu'un article soir repris sur la page suivante, crée un décalage de colonne...
je contacte l’éditeur pour vérifier si il est vraiment impossible de sortir le fichier en excel. ca aiderait grandement..

Si la structure des données était stable, cela pourrait ressembler à :

Sub essai()
l_ori = 1
f_ori = ActiveSheet.Name        'à adapter
f_dest = 3       'à adapter
l_dest = Sheets(f_dest).Range("A1048576").End(xlUp).Row
DernLigne = Sheets(f_ori).Range("A1048576").End(xlUp).Row
mois = Sheets(f_ori).Range("A2").Value

    While l_ori < DernLigne
        If Sheets(f_ori).Cells(l_ori, 1).Value = "COMPTE" Then
            'on collecte les infos...
            code_compte = Sheets(f_ori).Cells(l_ori, 2).Value
            libelle_compte = Sheets(f_ori).Cells(l_ori, 4).Value
        ElseIf Sheets(f_ori).Cells(l_ori, 2).Value = "ARTICLE" Then
            article = Sheets(f_ori).Cells(l_ori, 3).Value & " - " & Sheets(f_ori).Cells(l_ori, 5).Value
        ElseIf Sheets(f_ori).Cells(l_ori, 2).Value = "Stock debut de mois art." Then
            stock_debut = Sheets(f_ori).Cells(l_ori, 10).Value
        ElseIf Sheets(f_ori).Cells(l_ori, 2).Value = "Stock fin de mois art." Then
            stock_fin = Sheets(f_ori).Cells(l_ori, 10).Value
            total_entrees = Sheets(f_ori).Cells(l_ori, 4).Value
            total_sorties = Sheets(f_ori).Cells(l_ori, 8).Value
            '...et on renseigne la base
            Sheets(f_dest).Cells(l_dest, 1).Value = mois
            Sheets(f_dest).Cells(l_dest, 2).Value = code_compte
            Sheets(f_dest).Cells(l_dest, 3).Value = libelle_compte
            Sheets(f_dest).Cells(l_dest, 4).Value = article
            Sheets(f_dest).Cells(l_dest, 5).Value = stock_debut
            Sheets(f_dest).Cells(l_dest, 6).Value = total_entrees
            Sheets(f_dest).Cells(l_dest, 7).Value = total_sorties
            Sheets(f_dest).Cells(l_dest, 8).Value = stock_fin
            l_dest = l_dest + 1
        End If
        l_ori = l_ori + 1
    Wend
End Sub