Macro qui demande la zone de traitement

Sub test()
Sub test()
Dim x As Range
On Error Resume Next
Set x = Application.InputBox("selectionnez une plage", , , , , , , 8)
On Error GoTo 0
If Not x Is Nothing Then MsgBox "ok plage en " & x.Address(0, 0)
Sheets("Legende").Range("A2").Copy x
End Sub

Sub RTTD()
Dim x As Range
On Error Resume Next
Set x = Application.InputBox("selectionnez la période de congée", , , , , , , 8)
On Error GoTo 0
If Not x Is Nothing Then MsgBox "Zone de congée sélectionnée " & x.Address(0, 0)

      x = "Y"
       x.Borders(xlDiagonalDown).LineStyle = xlNone
    With x.Borders(xlDiagonalUp)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With x.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With x.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With x.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With x.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With x.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With
    
End Sub