Sub test_export()


Dim numero_ligne As Integer
numero_ligne = 1

Sheets("Feuil1").Select

Set Maplage = Columns("B:G").Rows(numero_ligne)

While Range("A" & numero_ligne)<>0

Range(Maplage).Select
Selection Copy
Sheets("Export").Select
Range(B2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
numero_ligne = numero_ligne + 1
Wend

End Sub





'insertion ligne et mise en page///

Rows("1:1").Select
    Application.CutCopyMode = False
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Sheets("Exemp20200331-declare-352483341").Select
    Range("A1:G1").Select
    Selection.Copy
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Export").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False