Macro VB - copier ligne de donnée

Bonjour a tous,

Actuellement, je récupère la veleur en R166 de toutes les feuilles d'un classeur et indépendemment de leur nombre via la macro suivante:

[B8].Value = "CA par mission"
For i = 6 To Worksheets.Count
[B4].Offset(i, 0).Value = Worksheets(i).Name
[B4].Offset(i, 1).Value = Worksheets(i).[R166].Value
Next i

mais, je souhaiterai non plus récupérer la donnée en R166 mais toutes les valeurs des cellules G164:R164. j'ai essayé de remplacé par les code ci-dessous mais malheursement je ne récupère que les valeurs en G164:

[B4].Offset(i, 1).Value = Worksheets(i).[G164:R164].Value


Ci-dessous : le code en entier:

Range("B8").Select
ActiveCell.Value = "CA par mission"
For i = 6 To Worksheets.Count
[B4].Offset(i, 0).Value = Worksheets(i).Name
Next i

[B8].Value = "test"
For i = 6 To Worksheets.Count
[B4].Offset(i, 0).Value = Worksheets(i).Name
[B4].Offset(i, 1).Value = Worksheets(i).[R166].Value

Next i


pour finir,
une fois la récupération des données, je souhaiterai ajouter un total qui s'insère automatiquement avecune séparation d'un ligne.

D'avance merci pour vos réponses