Copier 1 Cell en 10 Cell Le 09/05/2019 à 15:14TTylerdurdenJeune membreMessages25ExcelExcel 2016Inscrit24/01/2018 Bonjour,Je voudrais s'il vous plaît:Do While i <>""cells(i, 3).copyRange(cells(range("D1").end(xldown) + 1, 4), cells(range("D1").end(xldown) + 10, 4).pasteLoopVoire Capture.PNGEn vous remerciant d'avance.Tyler Durden 8vba.xlsx (8.24 Ko) Le 09/05/2019 à 15:25i20100Passionné d'ExcelMessages6'042Excel2010Inscrit16/03/2017Bonjour,à tester,[code]Sub test() rw1 = Cells(Rows.Count, 3).End(xlUp).Row rw2 = 2 For i = 2 To rw1 Range("D" & rw2 & ":D" & rw2 + 9).Value = Cells(i, 3).Value rw2 = Cells(Rows.Count, 4).End(xlUp).Row + 1 Next i End Sub[/code]Le 09/05/2019 à 15:57TTylerdurdenJeune membreMessages25ExcelExcel 2016Inscrit24/01/2018 un grand merci ^^. Rechercher des sujets similaires à "copier"ForumsExcel - VBACopier 1 Cell en 10 Cell