Macro Insertion lignes aud dessus Plage cellule visible

Pour compléter la création d'une macro Je souhaiterais connaitre la ligne de code pour pouvoir insérer une ligne au dessus de chaque lignes visible d'une plage de cellules filtrées.

Ci dessous mon extrait de macro qui ne fonctionne pas

Rows("6:58").Select

Selection.SpecialCells(xlCellTypeVisible).Select

Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

1er onglet le fichier avec la plage de cellules filtrées

2eme onglet le résultat souhaitées avec les lignes

Merci bcp pour votre aide,

Le fichier est en pj.

J

Bonjour et bienvenue sur le forum

Un essai à tester. Te convient-il ?

Bye !

Merci beaucoup, c'est parfait

J