Sub Macro12()
For ligne = 13 To 20
For colonne = 22 To 24
With Workbooks("fichiers1.xls").Sheets("Stator")
If .Cells(ligne, colonne).Value > 0 Then
.Range(.Cells(ligne, 4), .Cells(ligne, 24)).Copy
With Workbooks("essai2.xls").Sheets("Feuil1").Range("D" & ligne)
.PasteSpecial Paste:=xlValues
End With
End If
End With
Next colonne
Next ligne
End Sub