Dépassement de capacité

Bonjour,

La partie de code en gras bloque : Dépassement de capacité

Seule elle fonctionne bien mais pas lorsque je l'utilise dans une macro où elle est précédée d'autre variable.

Est il possible de purger de la mémore les variables précédentes ?



Dim L As Integer
L = Sheets('Feuil3').Range('A1').End(xlDown).Row + 1
With Sheets('Sucres BLANCS')
Sheets('Feuil3').Cells(L, 1) = .Range('G6').Value
Sheets('Feuil3').Cells(L, 2) = .Range('L4').Value
Sheets('Feuil3').Cells(L, 3) = .Range('G4').Value
Sheets('Feuil3').Cells(L, 4) = .Range('K4').Value
Sheets('Feuil3').Cells(L, 5) = .Range('D8').Value
End With
Cancel = False 'l'impression est lancée
'boite de dialogue vbInformation : boite de dialogue type 'information' 'Titre'
MsgBox 'L'IMPRESSION VA SUIVRE', vbInformation, 'EXPORT REALISE AVEC SUCCES : '



'l'export dans la base et impression sont effectués


End Sub