Sub Macro1()
Dim ws1 As Worksheet: Set ws1 = Sheets("Feuil1")
Dim ws2 As Worksheet: Set ws2 = Sheets("Feuil2")
Dim ws3 As Worksheet: Set ws3 = Sheets("Feuil3")
Dim wsF As Worksheet
Sheets.Add: ActiveSheet.Name = "TEMP": Set wsF = Sheets("TEMP"): wsF.Activate
ws1.Range("A1:A" & ws1.[A65536].End(xlUp).Row).Copy wsF.[A65536].End(xlUp)(2)
ws2.Range("A1:A" & ws2.[A65536].End(xlUp).Row).Copy wsF.[A65536].End(xlUp)(2)
ws3.Range("A1:A" & ws3.[A65536].End(xlUp).Row).Copy wsF.[A65536].End(xlUp)(2)
With wsF.Range("A1:A" & wsF.[A65536].End(xlUp).Row)
.NumberFormat = "0000000"
.HorizontalAlignment = xlRight
End With
End Sub