Salut à tous,

J'ai un problème avec une macro qui doit faire copier des données d'une feuille "Extraction" sous condition et de les coller dans une autre feuille "Test" d'un même fichier.

Voici le code VBA que j'ai pu crée et qui vérifie et fait copier /coller uniquement la première ligne du tableau de la feuille"Extraction"

Sub transfert_d()

Dim i As Integer

For i = 39 To 240

Sheets("Extraction").Select

If Cells(i, 11).Value > "10/05/2012" And Cells(1, 11) < "20/05/2012" Then

Union(Cells(i, 2), Cells(i, 4), Cells(i, 5), Cells(i, 6), Cells(i, 7), Cells(i, 8), Cells(i, 9), Cells(i, 11)).Select

Selection.Copy

Sheets("Test").Select

ActiveSheet.Paste

End If

Next i

End Sub

Merci par avance