J'essaie de créer un copie conditionnelle, j'y suis presque arrivé, problème les lignes sont en position 1260 à 1300, du coup j'ai rajouter un j, mais depuis cela ne fonctionne plus. D'autre part lorsque je met un end if vba me dit que je n'ai pas de boucle IF.
Sub Envo()
Dim i As Integer
Dim j As Integer
Workbooks.Open ("C:\Nath\Suivi Batches\2011 - W09 - IED IOSIS.xls")
j = 2
For i = 1000 To 2000
If Workbooks("2011 - W09 - IED IOSIS.xls").Worksheets("HK").Cells(i, 5).Value = "57" Then Workbooks("Classeur3.xls").Worksheets("Feuil1").Cells(j, 1).Value = Workbooks("2011 - W09 - IED IOSIS.xls").Worksheets("HK").Range("J" & i).Value
j = j + 1
End If
Next i
End Sub