' Pour cacher l'opération
Application.ScreenUpdating = False
'Boucle
For Compteur = 15 To 38
' Copie de la ligne si l'export est à 0
[B][COLOR="Yellow"]Workbooks("C:\test\Bureaui\Controle\2eme jet\" & NumOF).Activate[/COLOR][/B]
Sheets("Contrôle et Comptage").Select
If Range("K" & Compteur).Value = 0 & Range("A" & Compteur).Value <> "" Then
Range("A" & Compteur & ":I" & Compteur).Select
Selection.Copy
' Copie des Données dans le classeur Recap
Workbooks("C:\Test\Bureaui\Controle\2eme jet\Recapitulatif").Activate
Worksheets("Lots").Activate
' Recherche première ligne vide
LigneVide = Range("A65536").End(xlUp).Row + 1
' copie des données
Range("M" & LigneVide & ":U" & LigneVide).Select
End If
Next
Application.ScreenUpdating = True
End Sub