Bonjour ,

j'ai un problème sur mon code, la boucle qui permet de copier mes lignes qui contiennent #N/A sur une autre feuille du classeur ne fonctionne pas.

J'ai seulement la première ligne contenant #N/A qui est copié sur l'autre feuille.

HELP

Merci d'avance

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
Sub compcpte()
 
 
Worksheets("global Compte").Activate
 
Dim LastRow1 As Long
 
LastRow1 = Sheets("Compte non présent dans import").Range("A" & Rows.Count).End(xlUp).Row + 1
 
 
For i = Cells(1, 1).CurrentRegion.Rows.Count To 1 Step -1
 
If WorksheetFunction.IsNA(Cells(i, 2)) = True Then Range(Cells(i, 1), Cells(i, 10)).Copy Sheets("Compte non présent dans import").Cells(LastRow1, 1)
 
Next i
 
End Sub