Re bonsoir le forum
Un macro vite fait a voir si tu peux l'utiliser selon tes gouts
Sub copier_suite()
Dim position As Byte, ligne As Double
Dim i As Double, valeur As Variant
Workbooks.Open Filename:="C:\yyy.xls"
Windows("xxx.xls").Activate
For i = 2 To Sheets("Feuil1").Range("a65535").End(xlUp).Row
If Cells(i, 1) <> "" Then
Range("A" & i & ",B" & i & ",D" & i).Select
Windows("yyy.xls").Activate
position = 1
ligne = Sheets("Feuil1").Range("a65535").End(xlUp).Row + 1
Sheets("Feuil1").Rows(ligne & ":" & ligne).Insert Shift:=xlDown
For Each valeur In Selection
Sheets("Feuil1").Cells(ligne, position) = valeur
position = position + 1
Next valeur
End If
Windows("xxx.xls").Activate
Next i
End Sub
A suivre