Couper zone de cellules,copier sur la meme feuille

Bonjour à tous,

Effectuant mes débuts en programmation VBA, je me retrouve bloqué.

Je m'explique,

Je souhaiterai COUPER un certain nombre de cellules (une zone), pour COPIER le tout plus bas sur la même feuille.

Mon problème est que le nombre de lignes est variable suivant le document de base (différent chaque mois).

Les données permettant la selection se trouve en colonne B.

Je veux COUPER la zone allant jusqu'au mot "Catégorie", présent qu'une seule fois en colonne B,

Puis coller le tout à partir de cette cellule (en colonne B également)

Voilà la macro que j'ai élaboré et qui fonctionne en partie,

Pourriez-vous m'indiquer mes erreurs pour que cette macro fonctionne,

Sub Macro8()

' compte le nb total de lignes

nb = 1

While (Cells(nb, 2).Value <> "Catégorie") And (nb < 5000)

nb = nb + 1

Wend

nb = nb - 2

Cells(1, 2).Value = nb

' copie la partie haute pour insérer dans partie basse

Range("B1:B" & nb + 1).Select

Selection.Copy

Cells(nb + 2, 2).Select

Selection.Insert Shift:=xlToRight

' efface la première partie du tableau car copié plus bas

Rows("1:" & nb + 1).Select

Cells(nb + 1, 1).Activate

Application.CutCopyMode = False

Selection.Delete Shift:=xlUp

Range("A1").Select

End Sub

En attendant de vous lire..........

Cordialement,

Bonjour,

qu'est-ce qui ne fonctionne pas comme tu voudrais dans ta macro ?