Ajout d'une inputbox

Bonjour,

j'aimerais amélioré les macros de mon fichier en ajoutant une input box à mes macros.

la macro 2 tri mon tableau de H a AZ les nombres qui sont entre 1 et 30 puis supprimes les autres lignes puis elle fait un tri dans la colonne D et enfin tri la colonne A.

J'aimerais inclure une fenêtre quand j'appuie sur le bouton "faire le tri" qui me demande de faire le tri de 1 à ???

et dans la macro 3 le même chose mais de ??? à ???.

Est ce possible?

En vous remerciant par avance de votre aide.

Sub Macro2()
Application.ScreenUpdating = False
With ActiveSheet.Range("B3:B550")
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, _
Formula1:="=NB.SI.ENS(($H3:$AZ3);"">=1"";($H3:$AZ3);""<=30"")>0"
.FormatConditions(.FormatConditions.Count).SetFirstPriority
With .FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = RGB(255, 192, 0)
.TintAndShade = 0
End With
.FormatConditions(1).StopIfTrue = False
End With

With ActiveSheet.Range("$A$2:$AZ$550")
.AutoFilter Field:=2, Criteria1:=RGB(255, 192, 0), Operator:=xlFilterCellColor
.AutoFilter Field:=4, Criteria1:="Disponible"
End With

With ActiveSheet
With .AutoFilter
.Sort.SortFields.Clear
.Sort.SortFields.Add Key:=Range("A2"), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
.Sort.Apply
End With
End With
Application.ScreenUpdating = True
End Sub