Repetiton de Macro

Bonjour, voici mon code:

Dim Selec1 As Range
    Dim Selec As Range
    Dim Ligne1 As Variant
    Dim Ligne As Variant

    Application.ScreenUpdating = False

    SendKeys "{ENTER}", False
    Set Selec1 = Application.InputBox _
    ("Sélectionnez la ligne que vous souhaitez associer au planning :" & Chr(13) & "               ", "Saisie de la ligne à associer", "18:19", , , , , 8)

    Ligne1 = Selec1.Row

    SendKeys "{ENTER}", False
    Set Selec = Application.InputBox _
    ("Sélectionnez la ligne que vous souhaitez associer au planning :" & Chr(13) & "               ", "Saisie de la ligne à associer", Range("c" & Ligne1).Formula, , , , , 8)

    Ligne = Selec.Row
    

Actuellement ma première InputBox sélectionne les lignes 18 et 19, j'aimerais faire en sorte que mon code se répète afin que l' InputBox sélectionne tour à tour les ligne 18:19 puis que le code recommence pour les lignes 20:21 puis 22:23 et ainsi de suite jusqu'aux lignes 48:49.

Comment faire ?

Merci,

Cyprien

Bonjour,

Une piste à adapter :

    Dim I As Integer

    Application.ScreenUpdating = False

    For I = 18 To 49 Step 2

        SendKeys "{ENTER}", False

        Set Selec1 = Application.InputBox _
        ("Sélectionnez la ligne que vous souhaitez associer au planning :" & Chr(13) & "               ", "Saisie de la ligne à associer", I & ":" & I + 1, , , , , 8)

        Ligne = Selec1.Row

    Next I