Bonjour mromain,
voici la macro que je tente de réaliser...
Sub metrage()
Dim n As Integer, nl As String
n = Sheets("Métrage").Cells(1, 1)
nl = Application.InputBox("Indiquez les lignes (séparateur : "";"") :", , , , , , , 2)
Sheets("Métrage").Cells(n, 2) = Sheets("Données").Cells(nl, 2)
Sheets("Métrage").Cells(n, 4) = Sheets("Données").Cells(nl, 4)
Sheets("Métrage").Cells(n, 5) = Sheets("Données").Cells(nl, 5)
Sheets("Métrage").Cells(n, 6) = Sheets("Données").Cells(nl, 6)
Sheets("Métrage").Cells(n, 7) = Sheets("Données").Cells(nl, 7)
Sheets("Métrage").Cells(n, 8) = Sheets("Données").Cells(nl, 8)
Sheets("Métrage").Cells(n, 9) = Sheets("Données").Cells(nl, 9)
Sheets("Métrage").Cells(n, 13) = Sheets("Données").Cells(nl, 10)
Sheets("Métrage").Cells(1, 1) = n + 1
ta première macro est intéressente par contre j'avoue que j'ai trop de mal à la placer dans ma macro... De plus je ne vois pas comment dire "copier la 2ème ligne apres la première dans la page métrage"... Tu vois ce que je veux dire...