Création d'un code VBA en appuyant sur un bouton

Question

Bonjour je suis bloqué sur mon code vba. Quand j'appuie sur le bouton, j'aimerai que le code se lance 2 ligne en dessous du in entrer:

Sub Test()
Application.Range("A2").Value = "New run"
Application.Range("A3").Value = "Lap"
Application.Range("A4").Value = "1"
Application.Range("B4").Value = "out"
Application.Range("B3").Value = "Time"
Application.Range("D3").Value = "Type"
Application.Range("E3").Value = "Rotation"
Application.Range("F3").Value = "Refuel"
Application.Range("G3").Value = "Arbf"
Application.Range("H3").Value = "Arbr"
Application.Range("I3").Value = "Front wing"
Application.Range("J3").Value = "Rear wing"
Application.Range("K3").Value = "Coment"

Range("E4").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=info!$A$2:$A$3"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Range("G4").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=info!$B$2:$B$5"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Range("H4").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Info!$C$2:$C$5"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True

End With

Range("I3:I1048576").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlNotBetween, _
Formula1:="=-3,5", Formula2:="=1,5"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 10066431
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Selection.FormatConditions.Add Type:=xlTextString, String:="Front wing", _
TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False

Range("J3:J1048576").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlNotBetween, _
Formula1:="=0", Formula2:="=15"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 10066431
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Selection.FormatConditions.Add Type:=xlTextString, String:="Rear wing", _
TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False

Columns("B:B").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=MIN(B:B)"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 10498160
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False

ActiveSheet.Buttons.Add(595.5, 32.25, 222.75, 43.5).Select
Selection.OnAction = "Sheet6.Test"
Range("N8").Select

End Sub

Xmenpl · Answer

Je comprends déjà pas la question : " j'aimerai que le code se lance 2 ligne en dessous du in entrer:" c'est pas vraiment trois pages de codes qui vont résoudre la question. un fichier exemple serait d'avantage explicite. Si en traduction tu souhaites que ton bouton ne lance qu'une partie de cette macro ? alors tu copies la partie que que souhaites dans un autres "sub" que tu affecte à ton bouton...