Bonjour à toutes et tous,

J'ai dans un fichier une liste d'articles en colonne A et leur éventuel excédent en colonne J. Mon but : si il y a effectivement des excédents, donc que la cellule Jx est renseignée d'un chiffre, alors je veux copier la référence de l'article (colonne A) ainsi que ledit excédent (colonne J) dans mes colonnes A et B de ma feuille "Données intermédiaires". Je bute car le résultat n'est pas là...
Ci-joint le code que j'ai écrit :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub TraitementDonnées()
 
Application.ScreenUpdating = False
 
'Déclaration et dimension des variables
 
Dim LR1 As Long
 
'Chercher les données utiles et les copier dans l'onglet "Données intermédiaires"
 
    With Sheets("ALE")
 
        With Columns("J:J")
 
        For LR1 = .Cells(.Rows.Count, 10).End(xlUp).Row To 1 Step -1
            If .Cells(LR1, 1).Value <> "Total" And .Cells(LR1, 10).Value <> "Exc*" And .Cells(LR1, 10).Value <> "" Then
                .Cells(LR1, 1).Copy Sheets("Données intermédiaires").Range("A" & .Cells.Count).End(xlUp).Offset(1, 0)
                .Cells(LR1, 10).Copy Sheets("Données intermédiaires").Range("B" & .Cells.Count).End(xlUp).Offset(1, 0)
            End If
        Next LR1
 
        End With
 
    End With
 
Application.ScreenUpdating = True
Application.CutCopyMode = False
 
End Sub
Merci d'avance pour votre précieuse aide !