Ajouter textbox dans rows.select

Bonjours j'essaie de changer des variable fixe pour une textbox dans la fonction rows.select

Voici un exemble, ce que j'ai en ce moment :

Sub Macro3()
'
' Macro3 Macro
'
    Range("A13").Select
    'Empeche l'ouverture de la fenetre horaire
    Application.ScreenUpdating = False
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Rows("390:397").Select
    Selection.Copy
    Windows("M07_20150507_crib_coll_jaw_TESTTTTT.xlsm").Activate
    Range("A5").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Range("E14").Select
    Windows("M07.xlsx").Activate
    'Empeche la demande d'enregistrement
    Application.DisplayAlerts = False
    ActiveWindow.Close
End Sub

Ce que j'ai de besoin

Sub Macro3()
'
' Macro3 Macro
'
    Range("A13").Select
    'Empeche l'ouverture de la fenetre horaire
    Application.ScreenUpdating = False
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Rows("Textbox1.value-42005:Textbox1.value-42012").Select
    Selection.Copy
    Windows("M07_20150507_crib_coll_jaw_TESTTTTT.xlsm").Activate
    Range("A5").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Range("E14").Select
    Windows("M07.xlsx").Activate
    'Empeche la demande d'enregistrement
    Application.DisplayAlerts = False
    ActiveWindow.Close
End Sub

Merci de votre aide

Bonjour,

Tu as de la chance d'avoir un exemple...

Donc, nous, on doit travailler dans le noir?

Parce que ton code,