Sub Copie()
'
'On selectionne la cellule B2 et l'on copie colle la formule sur les lignes/colonnes ci dessous'
'
Dim LastCell
Dim j, LastLine
Dim Lettre As String
'On definit derniere ligne derniere colonne'
Set LastCell = Cells.Find("*", , , , xlByColumns, xlPrevious).Columns
j = LastCell.Column
Lettre = IIf(j > 26, Chr(64 + j \ 26) & Chr(64 + j Mod 26), Chr(64 + j))
LastLine = Range("A65536").End(xlUp).Row
Sheets("Sheet2").Activate
Range("B2").Select
ActiveCell.FormulaR1C1 = _
"=IF(MOD(COLUMNS(R[-1]C2:R[-1]C),ROUND(Sheet1!RC7,0))=0,(Sheet1!RC8+Sheet1!RC9),0)"
'Selection.AutoFill Destination:=Range("B2:" & Lettre & "2"), Type:=xlFillDefault'
Range("B2").AutoFill Destination:=Range("B2:" & Lettre & LastLine)