Sub Macro1()
Sheets("Feuil1").Columns(1).Copy Sheets("Feuil2").Range("D1")
Sheets("Feuil1").Columns(3).Copy Sheets("Feuil2").Range("E1")
Sheets("Feuil3").Columns(2).Copy Sheets("Feuil4").Range("G1")
Sheets("Feuil3").Columns(6).Copy Sheets("Feuil4").Range("H1")
End Sub
Ha oui c'est couillon ! Essaie comme ça alors :j'avais juste oublier de dire que la copie origine et destination commence en ligne 7
Sub Macro1()
With Sheets("Feuil1")
.Range("A7:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row).Copy Sheets("Feuil2").Range("D7")
.Range("C7:C" & .Cells(Application.Rows.Count, 3).End(xlUp).Row).Copy Sheets("Feuil2").Range("E7")
End With
With Sheets("Feuil3")
.Range("B7:B" & .Cells(Application.Rows.Count, 2).End(xlUp).Row).Copy Sheets("Feuil4").Range("G7")
.Range("F7:F" & .Cells(Application.Rows.Count, 6).End(xlUp).Row).Copy Sheets("Feuil4").Range("H7")
End With
End Sub
Sub Macro1()
With Sheets("Feuil1")
.Range("A7:A" & .Cells(Application.Rows.Count, "A").End(xlUp).Row).Copy Sheets("Feuil2").Range("D7")
.Range("C7:C" & .Cells(Application.Rows.Count, "C").End(xlUp).Row).Copy Sheets("Feuil2").Range("E7")
End With
With Sheets("Feuil3")
.Range("B7:B" & .Cells(Application.Rows.Count, "B").End(xlUp).Row).Copy Sheets("Feuil4").Range("G7")
.Range("F7:F" & .Cells(Application.Rows.Count, "F").End(xlUp).Row).Copy Sheets("Feuil4").Range("H7")
End With
End Sub