Bonjour!

J'ai fait un petit code pour tester quelque chose, mais j'ai un message d'erreur qui dit: "Invalid outside procedure" et me surligne xlDown.

Voilà 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
Dim tableau() As Byte
DerniereLigne = Range("A1").End(xlDown).Row
ReDim tableau(DerniereLigne)
Dim l As Byte
 
Sub AFFECTE()
 Call LECTURE
 Call ECRITURE
End Sub
 
Sub LECTURE()
 tableau(l) = Cells(l, 1).Value
End Sub
 
Sub ECRITURE()
 Cells(l, 2).Value = tableau(l)
End Sub
Merci de votre aide!