Xl-2007- Copier et insérer une nouvelle ligne

Bonjour à tous je vous poste ce message car je n'arrive pas modififer la destination de l'insertion de ma ligne.

voici mon code vba :

'Ajouter une ligne dans l'onglet
      ongletExport.Range("A" & ligneExport & ":P" & ligneExport).Copy
      ongletMois.Paste Destination:=ongletMois.Range(ongletMois.Cells(ongletMois.UsedRange.Rows.Count + 1, 1), _
                                                       ongletMois.Cells(ongletMois.UsedRange.Rows.Count + 1, 16))

la destination est fausse elle colle la ligne copiée loin derrière mon tableau..

Est ce possible de m'aider pour insérer cette nouvelle ligne soit :

• à la première ligne vide après le tableau.
• soit insérer la nouvelle ligne à la bonne place
• soit insérer à la première ligne en dessous du titre.

je vous mets une petite copie de mon fichier.

Il me faut aussi une surbrillance de la ligne.

Merci bien !

Cordialement,

PS :

Bonjour,

Pour ajouter un fichier : en dessous d'aperçu et d'nvoyer tu as un onglet Ajouter des fichiers joints.

Cdlt.

voila c'est fait

Personne connais une macro pour insérer une ligne copiée dans un tableau ?

Bonjour,

x=Inputbox("N° de la ligne :")
if x<>"" then
Rows(x).insert ' insertion la ligne à l'endroit demandé
Rows(x).select 'selectionne la ligne que tu viens de créer
selection.copy ' copie la ligne
'Après il ne te reste plus quà la copier ou tu le souhaite
end if

Cdlt.