Microsoft 365 désactiver les filtres de plusieurs onglets et incrémenter les lignes

[farnomar]

Bonjour à tous

Je sollicite votre aide car je rencontre qq difficultés à mettre en place un code simple me permettant d'une part de copier une entête et d'autre part de copier les ligne des différents onglets pour tout mettre sur une seule feuille( vue globale)
voici ce que j'ai essayé de faire mais après je sèche complètement
les noms sont bien sur inventé

Sub Macro1()
'
' Macro1 Macro


'ajouter/retirer les filtres des différents onglets

Sheets("HISTO OK").Select
Selection.AutoFilter
Sheets("vue Globale").Select

Sheets("PFMC").Select
Selection.AutoFilter
Sheets("vue Globale").Select

Sheets("NA").Select
Selection.AutoFilter
Sheets("vue Globale").Select

Sheets("AVENE").Select
Selection.AutoFilter
Sheets("vue Globale").Select

Sheets("ADERMA").Select
Selection.AutoFilter
Sheets("vue Globale").Select

Sheets("CORPORATE").Select
Selection.AutoFilter
Sheets("vue Globale").Select

Sheets("KLORANE").Select
Selection.AutoFilter
Sheets("vue Globale").Select

Sheets("DUCRAY").Select
Selection.AutoFilter
Sheets("vue Globale").Select

Sheets("PFM Rx").Select
Selection.AutoFilter
Sheets("vue Globale").Select

Sheets("RF").Select
Selection.AutoFilter
Sheets("vue Globale").Select

Sheets("PFOC").Select
Selection.AutoFilter
Sheets("vue Globale").Select

'Copier l'entête

Sheets("HISTO OK").Select
Range("A3:CF3").Select
Selection.Copy
Sheets("vue Globale").Select
Range("A3").Select
ActiveSheet.Paste

'Copier les lignes dans le tableau.

Sheets("HISTO OK").Range("A4:CF4").Copy Sheets("vue Globale").Range("A4")

et après je n'arrive pas à faire en sorte que les lignes s'incrémentent toutes en provenant des autres feuilles, j'espère que c'est assez claire
vous verrez c'est pas très propre et jolie j'ai essayé plusieurs méthodes mais en vain (sniffff)

En vous remerciant infiniment pour votre aide sur ce sujet

Cordialement,

 

[TooFatBoy]

Les commentaires étaient donc bien à l'origine du problème mais je ne comprends pas pourquoi.

Puisque que la macro Epurer supprime toutes les lignes (avec les commentaires) sous la ligne 506.

Oui, mais le commentaire de la cellule AX241, qui est au-dessus de la ligne 506, est un petit peu allongé et descend jusqu'à la ligne 705.

 

[job75]

Alors là bravo, il fallait le voir.

Effectivement quand on affiche le commentaire de la cellule AX240 on voit qu'il va jusqu'à la ligne 705.

Mon problème est donc résolu, un grand merci.

 

[TooFatBoy]

Alors là bravo, il fallait le voir.

J'ai été pas mal aidé par mon moniteur UHD 40 pouces : ça permet d'afficher beaucoup de cellules en même temps.