Erreur sur Range

Bonjour,
je fais des essais concernant des tableaux variables (je débute en VBA)
J'ai écris ce code et il y a un message d'erreur : la méthode Range de l'objet Global a échoué. et bien entendu, je ne comprends pas pourquoi...

Quelqu'un peut-il m'aider.
d'avance merci.

Option Explicit
Option Base 1



Sub Tournéemanquante()
Dim i As Byte
Dim j As Byte
Dim k As Byte
Dim e As Byte
Dim f As Byte
Dim Tabréf As Variant
Dim Tableau As Variant
Dim Résultat As Variant
Dim fintableau As Long
'se positionne sur la feuille "Janvier"
Sheets("Janvier").Select
'Donne le numéro de la dernière ligne remplie avec les données tournées
fintableau = Range("C65536").End(xlUp).Row
'Rempli le tableau avec les données du mois
Tableau = Range(Cells(7, 4), Cells(fintableau, 31))
'rempli le tableau référence
Tabréf = Range(Cells(7, 3), Cells(fintableau, 3))
'rempli le tableau résultat
ReDim Résultat((fintableau - 6), 31)
For e = 1 To 31
For f = 1 To (fintableau - 6)
Résultat(f, e) = Range(Cells((f + 6), 3))
Next f
Next e

End Sub