Exportation de valeurs

Bonjour,

J'aurais besoin d'aide svp. J'ai un fichier dans lequel il y a 2 feuilles, une intitulé décompte et une autre Article et je veux que les donnés inscrite dans décompte soit transférer dans la feuille article mais seulement si la colonne M est plus grand que 0. Je sais que cela fait bizarre de faire cela mais il y a des à côtés que ce serai trop long à expliquer le pourquoi. Je joins le fichier et dans celui-ci j'ai expliqué le tout dans un commentaire

Merci beaucoup

Salut Chantal,

premier jet à améliorer selon indications.

Private Sub cmdGO_Click()
'
Dim iRow%
'
Application.ScreenUpdating = False
'
With Worksheets("Article")
    For x = 9 To Range("A" & Rows.Count).End(xlUp).Row
        If Cells(x, 13) > 0 Then
            iRow = iRow + 1
            .Range("A" & 6 + iRow & ":L" & 6 + iRow).Value = Range("A" & x & ":L" & x).Value
        End If
    Next
    .Activate
End With
'
Application.ScreenUpdating = True
'
End Sub

A+

Salut,

Wow quel rapidité et tout a fonctionné d'une seul fois. Un très gros merci