For Each c In Worksheets("Toto").Range("H2:H70")
If c.Value = "" Then
c.FormulaR1C1 = "=COUNTA(RC[2],RC[8],RC[14],RC[20])"
End If
Next c
Sub Sans_Boucle()
Worksheets(1).Range("H2:H70").SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=COUNTA(RC[2],RC[8],RC[14],RC[20])"
End Sub
Entièrement d'accord avec toiDonc en fait les Select "A la benne"