Copie d'une meme ligne dans une nouvelle ligne d'une table

Bonjour a toutes et a tous

Voici la macro concernée qui me pose probleme :

Sub Capture()
'
' Capture Macro

Dim DEPART As Object Dimension de la variable de deplacement

Set DEPART = ActiveCell Enregistrement de la cellule de depart selectionnee par utilisateur
ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select Ajout d'une ligne dans la table pour futur usage a l'endroit selectionne
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("B7:M7").Select Selection des donnees a copier
Selection.Copy
Range("DEPART").Select Retour a la cellule pour copier nouvelles donnees
ActiveSheet.Paste
End Sub

La macro bloque au moment du retour a la cellule enregistrée pour la copie :S

J'ai essaye bien des méthodes mais la je commence a coincer

Merci d'avance