XL 2016 Saisie d'une valeur à l'aide de inputtext pour obtenir des valeurs brutes

Sub xCoef()
Dim n As Variant, c As Range
n = InputBox("Entrez le coefficient multiplicateur :")
If n = "" Then Exit Sub
n = Val(Replace(n, ",", "."))
Application.ScreenUpdating = False
With Sheets("xCoef")
    .Cells.Delete 'RAZ
    Sheets("Tableau_pdp").UsedRange.Copy .[A1]
    On Error Resume Next 'si aucune SpecialCell
    For Each c In .[C:H].SpecialCells(xlCellTypeConstants, 1)
        c = c * n
    Next
    .Activate 'facultatif
End With
End Sub