Plage variable

Bonsoir,

Après avoir récupéré le N° de la première et de la dernière ligne d'une plage dans un Input, je voudrais sélectionner cette plage en faisant qch comme

 texte_aide$ = "Entrer votre commande comme ci-dessous" & vbCr _
    & " * N1-N2 (2 numéros de ligne séparés par un tiret) : de N1 à N2" & vbCr _
    & vbCr _
     Source$ = InputBox(texte_aide, "Encadrement des fiches")
    '
    If Source$ = "" Then End
    N1$ = ""
    N2$ = ""
    If Trim$(Source$) <> "-" Then
        pos_tiret = InStr(1, Source$, "-")
        If pos_tiret > 0 Then
            N1$ = Mid$(Source$, 1, pos_tiret - 1)
            N2$ = Mid$(Source$, pos_tiret + 1)

        End If
    End If

Ensuite je voudrais sélectionner la plage comme ceci.

Range ("A" & N1$:"A" & N2$).Select

Je ne comprends pas le bog.

Merci de vos lumières

Bonjour

Ta macro corrigée

Sub test()
 texte_aide$ = "Entrer votre commande comme ci-dessous" & vbCr _
    & " * N1-N2 (2 numéros de ligne séparés par un tiret) : de N1 à N2" & vbCr _
    & vbCr

  Source$ = InputBox(texte_aide, "Encadrement des fiches")

  If Source$ = "" Then End
  N1$ = ""
  N2$ = ""
  If Trim$(Source$) <> "-" Then
    pos_tiret = InStr(1, Source$, "-")
    If pos_tiret > 0 Then
      N1$ = Mid$(Source$, 1, pos_tiret - 1)
      N2$ = Mid$(Source$, pos_tiret + 1)
      Range("A" & N1$ & ":A" & N2$).Select
    End If
  End If
End Sub

Avec Application.InputBox tu peux saisir une plage de cellule (regardes l'aide)

Sub test2()
  On Error Resume Next
  Application.InputBox("Sélectionner la zone avec la souris", "Sélection", Type:=8).Select
End Sub

Bonsoir,

Merci pour ces 2 solutions.

Je vais conserver la 1° car j'ai besoin des variables N1$ et N2$ pour faire autre chose dans la plage ("B" & N1$ ";B" & N2$)