Déclaration plage cellules variable

Bonjour à tous,

Sur le petit bout de macro suivant, je souhaite réaliser des calculs avec des variables. Tout à l'air de bien fonctionner sauf la ligne qui définit ma variable X (message d'erreur : Erreur définie par l'application ou par l'objet)

Merci d'avance pour votre aide!!!

Sub Calcul_des_Limites()

    For c = 1 To 9

    Set X = Worksheets("D105").Range(Cells(3, 3 + c), Cells(27, 3 + c))
    Set Y = Worksheets("Statistiques").Cells(2, 2 + c)

        'LCL
        Cells(3, c * 2).FormulaLocal = "=MOYENNE(" & X & ")-3*" & Y & "/40"

        'UCL
        Cells(3, c * 2 + 1).FormulaLocal = "=MOYENNE(" & X & ")+3*" & Y & "/40"

    Next c

End Sub

Bonjour Aston,

Comme ça je dirais

Set X = sheets("D105").Range(sheets("D105").Cells(3, 3 + c), sheets("D105").Cells(27, 3 + c))

A+