Macro qui demande la zone de traitement

Sub Macro1()
Dim sel As Range 'déclare la variable sel
Dim ad As String 'déclare la variable ad
 
'définit la variable ad
ad = InputBox("Tapez l'adresse de la plage ou de la cellule. Par exemple A1:G12", "Definir un plage")
If ad = "" Then Exit Sub 'si non renseignée, sort de la procédure
On Error GoTo fin: 'gestion des erreur via la balsie "fin"
Set sel = Range(ad) 'définit la variable sel
sel.Select 'sélectionne la plage sel
Exit Sub 'sort de la procédure
fin: 'balise
MsgBox "adresse non valide !" 'message
End Sub

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)
End Sub

Dim Zone As Range
   Set Zone = Application.InputBox("Sélectionnez une zone de congé !", Type:=8)
    Application.ScreenUpdating = False
    Sheets("Legende").Select
    Range("B1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("2008").Select
    ActiveSheet.Paste

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)
x.Copy Sheets("2008").Range("A1")
End Sub

x.Copy Sheets("2008").Range("A1")

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

Private Sub ComboBox1_Change()

If ComboBox1.Value = "RTT - journée entière" Then
Call RTTJ
End If
If ComboBox1.Value = "RTT - demi journée" Then
Call RTTD
End If

End Sub