Copier les lignes de A à AN et pas lignes entières

    Dim Cellules As Range           ' Déclaration de la variable Cellules
    Dim Rep As Integer              ' Déclaration de la variable Rep
    Dim Rep2 As Integer             ' Déclaration de la variable Rep
    Dim Adresse As String
    i = 2                           ' i Prend la valeure 2
    On Error Resume Next            ' Si erreur d'éxécution , le controle passe à l'instruction qui suit (Ignore l'erreur)
    Set Cellules = Application.InputBox(prompt:=" Cliquez sur le (ou les) numeros des lignes à conserver ( Maintenir CTRL) ", Type:=8)     ' Questionnement sur lignes à conserver
    If Err.Number <> 0 Then         ' Si le code d'erreur est différent de 0 ( Si il y a une erreur)
        Exit Sub            ' Quitter la macro
    End If                  ' Fin de la condition
    On Error GoTo 0         ' Rétablit la gestion d'erreur par défaut ( annule Err.Number )
    MsgBox Cellules.Address
    Adresse = Replace(Cellules.Address, ":$", ":$N")
    Adresse = Replace(Adresse, "$", "$A")
    Set Cellules = Range(Adresse)
    MsgBox Cellules.Address