Bonjour je voudrais connaître la syntaxe pour remplacer B13 par ("B" & i) mais je ne connais pas la syntaxe quand il s'agit de l'inclure dans ActiveCell.Formula...
Je voudrais aussi pouvoir garder le fait de bloquer la cellule ($B$123)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 For i = 13 To 1055
  b = i + 110
      Range("F" & i).Select 
        ActiveCell.Formula = _
        "=IF(B13="""","""",IF(B13=0,0,B13/$B$123))"
        Selection.AutoFill Destination:=Range("F" & i & ":F" & b), Type:=xlFillSeries
Une aide serait la bienvenue,

Merci !