Copier entre mots clés

Bonjour.
Vois le code suivant (je me suis arrêté au "copier") :

Sub test()
Dim LigneDeb As Long, LigneFin, ValeurDeb As String
LigneDeb = Application.Match("[*]", Range("A1",
Range("A65536").End(xlUp)), 0)
ValeurDeb = Range("A" & LigneDeb).Value
On Error GoTo ERR
LigneFin = Application.Match(ValeurDeb, Range("A" & LigneDeb + 1,
Range("A65536").End(xlUp)), 0) + LigneDeb
Rows(LigneDeb + 1 & ":" & LigneFin - 1).Copy
ERR:
LigneFin = Range("A65536").End(xlUp).Row
Rows(LigneDeb + 1 & ":" & LigneFin).Copy
End Sub

Cordialement.
Daniel
"Lux" <Lux@nospam.com> a écrit dans le message de news:
O6a2DbRjFHA.1412@TK2MSFTNGP09.phx.gbl...

Bonjour,

je souhaite copier-coller dans un nouveau classeur une selection de lignes
se trouvant entre des mots-clés entre crochets, ex ==> [mot clé]
[mot clé]
Selection de lignes
[mot clé]

Une autre sélection est déterminée au final par une ligne vide.
[mot clé]
Sélection de Lignes
Ligne vide

Merci d'avance !