Bonsoir Albert et le forum
la ligne de suivante dans ton code 'Plage.FormulaR1C1 = "=NoSem(R[1]C[-3])" la tu cherche dans la cellule IV qui est vide la modif ci-dessous va résoudre le blème.
Sub CalculDates()
Range("A2").Select
Set Plage = Range(Selection, Selection.End(xlDown)).Offset(0, 2)
Plage.FormulaR1C1 = "=NoSem(RC[-2])"
End Sub
Gérard