Sub test1()
Sheets("Feuil1").Select
While ActiveSheet.Range("A1") <> ""
valeur = ActiveSheet.Range("A1")
Range("A1").Delete shift:=xlUp
Wend
Sheets("Feuil2").Select
While ActiveSheet.Range("A1") <> ""
valeur = ActiveSheet.Range("A1")
Range("A1").Delete shift:=xlUp
Wend
End Sub