Discussion :

[abouhossam]

bjr,
j'ai une macro à développer qui doit effectuer les actions suivantes:
copier les données d'un tableaux de la feuille 1 ( si la ligne n'est pas vide)
coller les données dans une autre feuille 2 en inserant le même nbre des lignes copiés.
j'ai
merci.

[fring]

Bonjour,

Un petit bout de code à tester et à adapter selon tes besoins

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
Dim i%
With Sheets(1)
For i = 1 To .Range("A65535").End(xlUp).Row
If .Cells(i, 1) <> "" Then
Range(.Cells(i, 1), .Cells(i, 5)).Copy
Sheets(2).Range("A65535").End(xlUp)(2).PasteSpecial
End If
Next
End With
Application.CutCopyMode = False
End Sub

Avec le peu d'explication, je peux pas faire mieux
@+

[abouhossam]

bjr
c'est fait et ça marche
merci