Problème dans formule

Dim NbMarqueurs As Integer, NbCapteurs As Integer
Dim IMark As Integer, ICapt As Integer

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 07/05/2010

Dim CellD As String, ICellD As Integer                          ' Cellule de destination
Dim CellS As String, ICellS As Integer, IcellS0 As Integer      ' Cellule source
Dim temp As String
'
' Nombre de marqueurs
'Open "c:\temp\trace.txt" For Output As #1
    Sheets("Données Brutes").Select
    Range("C152").Select
    ActiveCell.FormulaR1C1 = "=MAX(R[-145]C:R[-3]C)/2"
    NbMarqueurs = ActiveCell.Value
' Nombre de capteurs
    Range("C153").Select
    ActiveCell.FormulaR1C1 = "=COUNT(R[-146]C:R[-4]C)/R[-1]C/2"
    NbCapteurs = ActiveCell.Value
' Lecture des données
    Sheets("Rotor").Select
' Vitesses
    Range("D12").Select  ' Positionnement sur la première ligne
    ICellD = 11: IcellS0 = 6
    For IMark = 1 To NbMarqueurs
        ICellD = ICellD + 1: CellD = "D" & ICellD
        ICellS = IcellS0 + IMark: CellS = "F" & ICellS
        For ICapt = 1 To NbCapteurs
            Range(CellD).Select
'            Print #1, CellD, CellS
'            ActiveCell.FormulaR1C1 = "='Données Brutes'!R[2]C[2]"
            Debug.Print "='Données Brutes'!" & CellS
            temp = "='Données Brutes'!" & CellS
            ActiveCell.FormulaR1C1 = temp
            ICellD = ICellD + 1: CellD = "D" & ICellD
            ICellS = ICellS + NbCapteurs + 1: CellS = "F" & ICellS
        Next ICapt
    Next IMark
'Close #1
  
End Sub

 Debug.Print "='Données Brutes'!" & CellS
            temp = "='Données Brutes'!" & CellS
            ActiveCell.FormulaR1C1 = temp