XL 2016 Recherche de Macro pour griser des cases sélectionnées

Sub Griser()
  If MsgBox("Voulez-vous facturer ?", 4, "Confirmation") = 6 Then Selection.Interior.Pattern = 17
End Sub

Sub Fade_To_Grey()
Dim Griserie_sans_alcool As Range
On Error Resume Next
Set Griserie_sans_alcool = _
    Application.InputBox("Séléctionner les cellules à griser", "Formater Sélection", , 200, 200, , , Type:=8)
If Err.Number <> 0 Then
MsgBox "Sélection annulée", vbCritical
Else
Griserie_sans_alcool.Interior.Pattern = xlGray16
End If
On Error GoTo 0
End Sub