Bonjour,
Je débute dans le VBA, at malgré mes recherches certaines subtilités m'échappent.
J'ai écrit le code suivant :
Sub TabTou()
Dim Derlig As Long
Derlig = Range("A65536").End(xlUp).Row
Dim TabTou(1 To Derlig, 1 To 31, 1 To 12) As Variant
Dim i As Byte, j As Byte, k As Byte
For...