Recherche d'un terme dans une colonne et copie de la ligne correspondante

Bonjour

Dans une de mes pages, j'ai encodé une macro effectuant une recherche sur un terme précis dans une colonne (M). A chaque fois que je trouve ce terme, je souhaiterais copier la ligne correspondante de la colonne A à L uniquement sur une feuille spécifique ou j'ai demandé d'abord l'insertion d'une ligne pour ne pas écraser l'info précédente (si vous avez autre chose à proposer pour ne pas passer par cette phase, je suis preneur). Ensuite je souhaiterais revenir sur le feuille initiale, sélectionner la ligne sur laquelle je m'étais arrêté de A à M pour l'effacer avant de continuer la recherche dans le reste de la colonne M.

Voici le code testé sur base de morceaux trouvé sur le net :

Sub Encodage()
Dim cell As Range
Sheets("Encodage").Select
Application.ScreenUpdating = False
For Each cell In Sheets("Encodage").Range("M3:M" & Sheets("Encodage").Range("M65536").End(xlUp).Row)
If cell.Value = "ruche1" Then
Sheets("Ruche 1").Select
Rows("5:5").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("Encodage").Select
cell.EntireRow.Copy Destination:=Sheets("Ruche 1").Rows(5)
Sheets("Encodage").Select
Rows("3:3").Select
Application.CutCopyMode = False
Selection.ClearContents

End If
Next
Application.ScreenUpdating = True
End Sub

- la sélection de la ligne à copier se fait sur toute la ligne (cell.EntireRow.Copy) et non de A à L
- Le retour sur la feuille d'origine pour effacer la ligne de A à M ne se fait pas sur la bonne ligne (celle que je viens de copier après avoir trouvé le terme recherché)

Pourriez vous corriger mon code SVP ?

Merci