Rendre une macro interactive

Sub Liste_SDB_v02()
'
' extraction_sansdoublons Macro
'

'
'Sheets("Ref").Select
Dim pSource As Range, pDestination As Range
Set pSource = Application.InputBox("1re cellule source?", , , , , , , 8)
Set pDestination = Application.InputBox("Cellule Destination?", , , , , , , 8)


'    Range("l_Bunites").ClearContents
    derniereligne = pSource.Offset(30000, 0).End(xlUp).Row
    pDestination.Resize(65536 - pDestination.Row).ClearContents
    pSource.Resize(derniereligne - pSource.Row).AdvancedFilter Action:=xlFilterCopy, _
        CopyToRange:=pDestination, Unique:=True
    
'    Range("l_Bunites").Select
    pDestination.Resize(65536 - pDestination.Row).Select
    Selection.Sort Key1:=pDestination, Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Application.CutCopyMode = False
    pDestination.Select
    
'    Sheets("Ref").Select
End Sub

Sheets("KLMN").Activate     'Choisi la feuille KLMN avant d'afficher le input box

Sub Liste_SDB_v02()
Dim S As Range, D As Range
On Error Resume Next
Set S = Application.InputBox(Prompt:="Source?", Type:=8)
Set D = Application.InputBox(Prompt:="Destination?", Type:=8)
If S Is Nothing Or D Is Nothing Then Exit Sub
On Error GoTo 0
S.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=D, Unique:=True
D.Resize(S.Count, 1).Sort Key1:=D, Order1:=xlAscending, Header:=xlGuess
End Sub

Sub Liste_SDB_v02()
Dim S As Range, D As Range
On Error Resume Next
Set S = Application.InputBox(Prompt:="Clicker sur la cellule source", Type:=8)
Set D = Application.InputBox(Prompt:="Clicker sur la cellule de destination", Type:=8)
If S Is Nothing Or D Is Nothing Then Exit Sub
On Error GoTo 0
S.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=D, Unique:=True
D.Resize(S.Count, 1).Sort Key1:=D, Order1:=xlAscending, Header:=xlGuess
End Sub

Sub selfeuille()
Dim S As Range
On Error Resume Next
Set S = Application.InputBox(Prompt:="Clicker sur une cellule de la feuille source", Type:=8)
If S Is Nothing Then Exit Sub
MsgBox S.Parent.Name
End Sub