Sub test4()
' Mise en mémoire de la plage Variable Object de la classe Range
Dim MEASURED_VALUES_RANGES As Range
Set MEASURED_VALUES_RANGES = Range("E5:E12")
Dim REJECTED_MEASURES_RANGES As Range
Set REJECTED_MEASURES_RANGES = Range("F5:F12")
' Ici
' MEASURED_VALUES_RANGES.Address Soit la plage ("$E$5:$E$12") ' Référence Absolu
' Les 0 apres .Address(0,0) Enléve le referencement Absolu
' MEASURED_VALUES_RANGES.Address(0, 0) Soit la plage ("E5:E12") ' Référence Relatif
Cells(2, 5) = "=COUNT(" & MEASURED_VALUES_RANGES.Address(0, 0) & ")"
Cells(2, 6) = "=COUNTIF(" & REJECTED_MEASURES_RANGES.Address(0, 0) & ",""Rejected"")"
End Sub