Recopie qui ecrase l'ancienne

Bonjour le forum

J'ai une macro qui me sert a recopier des données A2:E2 et les inscrirent a la suite dans la plage de données en dessous, mais s'il y a une

cellule vide en premier elle écrase ses données.

cliquez sur la macro et les données en ligne 11 sont ecrasées

que faut-il rajouter dans la macro pour eviter cela.

merci

Bonjour,

Un essai ...

Sub Macro1()
' Macro1 Macro
Dim pl As Range, vligne As Long
    Sheets("Feuil1").Activate
    vligne = Range("A65536").End(xlUp).Row + 1

    Do While WorksheetFunction.CountA(Range("A" & vligne & ":E" & vligne)) <> 0
      vligne = vligne + 1
   Loop

    Range("A2:E2").Copy
    Range("A" & vligne).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                                                                    :=False, Transpose:=False
    On Error Resume Next
    Set pl = Selection.SpecialCells(xlCellTypeConstants, xlErrors)
    On Error GoTo 0
    If Not pl Is Nothing Then pl.ClearContents
    Range("G1").Select
    Application.CutCopyMode = False
End Sub

ric

Bonjour ric, le forum

Merci pour ta réponse c'est parfait

Bonne soirée