bonjour le forum

j'ai un message d'erreur '6' dépassement de capacité,j'ai changé les Integer par Long mais j'ai toujours ce message,voici le code
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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
Sub Macro8##
'
' Macro8 Macro
' essai
'
 
'
Dim plg As Byte
Dim dlg As Long, vligne As Long 'Integer
dlg = Range#"L" & Rows#Count##End#xlUp##Row
Application#ScreenUpdating = True
For plg = 34 To dlg
    With Range#"H" & plg & ":L" & plg#
        #Copy Range#"C1"#
        #ClearContents
    End With
    Calculate
If plg > 34 Then
    Range#"B6"# = "=COUNTIF#EuroMil!$B$" & plg - 32 & ":$F$" & plg + 27 & ",$a6#"
    Range#"B6"##AutoFill Destination:=Range#"B6:B55"#, Type:=xlFillDefault
    Calculate
End If
    Range#"A6:B55"##Copy
    Range#"C6"##PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    'Application#CutCopyMode = False
    With ActiveWorkbook#Worksheets#"Feuil4"##Sort
        #SortFields#Clear
        #SortFields#Add Key:=Range#"D6:D55"#, _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        #SetRange Range#"C6:D55"#
        #Header = xlGuess
        #MatchCase = False
        #Orientation = xlTopToBottom
        #SortMethod = xlPinYin
        #Apply
    End With
    Calculate
    'Range#"G5"##Select
    vligne = Range#"AE65536"##End#xlUp##Row + 1
    Range#"C3:G3"##Copy
    Range#"AE" & vligne##PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
Dim Cellule As Range
Dim Plage As Range
 
Dim i, l, c As Long 'Integer
i = 6
Set Plage = Range#"C1:G1"#
While IsEmpty#Range#"A" & i## = False
     For Each Cellule In Plage
      If Range#Cellule#Address##Value = Range#"C" & i##Value Then
      l = Range#"E" & i##Value + 8
      c = Range#"F" & i##Value + 10
      Cells#c, l# = Cells#c, l# + 1
      End If
     Next Cellule
      i = i + 1
Wend
Next
Calculate
Application#ScreenUpdating = False
 
Range#"G5"##Select
Application#CutCopyMode = False
 
    Range#"G5"##Select
End Sub
C'est la ligne " For plg = 34 To dlg " qui est surlignée en jaune
merci de votre aide

ps:mes excuses pour avoir oublié de cocher le résolu dans mon post précédent