Bonjour,
J'ai un soucis avec mon code VBA cree pour la ventilation des données sur plusieurs feuilles.Quand debug il m'affiche cette erreur " Methode 'Range' of object_Global' failed " au niveau de cette formule
'' LastRow = Range("A1000000").End(xlUp).Row ''.

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
	Dim j As Integer
	Dim LastRow As Integer
	Dim DerniereLigne As Integer
 
	Sub Ventilation()
 
	    Application.ScreenUpdating = False
 
	    'boucle permettant de lire toutes les 12 feuilles du classeur
	    For j = 1 To 12
 
	        Sheets(j).Select
	        LastRow = Range("A1000000").End(xlUp).Row
	        For i = LastRow To 6 Step -1 'Parcourir les lignes en remontant vers le haut
	            Sheets(j).Select
	            Rows(i).Select
	            Selection.Delete shift:=(xlUp)
	        Next i
 
	        Sheets("SOURCE").Select
	        DerniereLigne = Range("A1000000").End(xlUp).Row
 
	        For k = 6 To LastRow
 
	            Sheets("SOURCE").Select
	            If Sheets(j).Name = Cells(k, 7).Value Then
 
	               Rows(k).Select
	               Selection.Copy
 
	               Sheets(j).Select
	               LastRow = Range("A1000000").End(xlUp).Row + 1
	               Cells(LastRow, 1).Select
	               ActiveSheet.Paste
 
	            End If
 
	        Next k
 
	      Next j
 
	      Sheets("SOURCE").Select
	      Application.CutCopyMode = False
	      Application.ScreenUpdating = True
 
	End Sub