XL 2013 Macro pour transférer des données de la Feuil1 à Feuil2

[stefer]

Bonjour,
Je voudrais une macro qui ferait avec le bouton "transfert", transférer les donner de la feuille "Principal" vers la feuille "Récap":
Les données des lignes de la colonne B a K si la cellule est vide dans la colonne P.
Dans la feuille "Récap" le tableau représente les colonne B à K et se remplit après avoir fait le clic sur le bouton de la feuille "Principale.
Par contre si le tableau est déja remplis, si je refais un clic sur le bouton "Transfert" c'est les nouvelles données qui s'affiche et efface les anciennes données.

Merci pour votre aide
Cordialement,

 

[job75]

Bonsoir stefer,

Fichier joint avec cette macro :

Sub Transfert()
Feuil2.Rows("3:" & Rows.Count).Delete 'RAZ
On Error Resume Next 'si aucune SpecialCell
With Feuil1.[A4].CurrentRegion
    Intersect(.Columns(16).SpecialCells(xlCellTypeBlanks).EntireRow, .Columns(2).Resize(, 10)).Copy Feuil2.[A3]
End With
With Intersect(Feuil2.UsedRange, Feuil2.Range("A3:J" & Rows.Count)).Borders(xlEdgeBottom)
    .LineStyle = xlContinuous
    .Weight = xlMedium
End With
Feuil2.Activate 'facultatif
End Sub

A+

 

[job75]

Re,

Vous semblez savoir que le nom donnée existe en français alors pourquoi utilisez-vous le verbe donner à la place ?

Que croyez-vous que l'on pense des gens qui se moquent de l'orthographe ?

A+