[VBA] Cellule Range ...

Bonjour,

Je fais face à une problématique concernant une macro VBA.
Ce qu'elle fait :
-Copie les données d'un tableau croisé dynamique et colle valeur et Mise en forme de la source.
-Ensuite permet à l'utilisateur de selectionner avec la souris une plage de cellule.

Je souhiate récuperer cette selection et faire des traitements par ligne (trouver mini et maxi pour chaque ligne contenu dans la selection)

Mon code est le suivant :

Sub CopierValeur()

    Cells.Select
    Selection.Copy
    Sheets("AnalysePrix").Select
    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    SelectionPlageAvecSouris
End Sub
 ______________________________________________________   
Function SelectionPlageAvecSouris()
      
    Dim Plage As Range
    Dim Coord As String
    Dim ColoPrem, ColoDer As String

    
On Error Resume Next
    Set Plage = Application.InputBox("Sélectionnez une cellule ou une plage :", Type:=8)
    Coord = Plage.Address(ReferenceStyle:=xlA1, RowAbsolute:=False, ColumnAbsolute:=False)
    ColoDern = ActiveCell.Address(RowAbsolute:=False, ColumnAbsolute:=False)
    
    
    On Error GoTo 0
    If Plage Is Nothing Then MsgBox "Sélection annulée"
    
    boucle Plage
      'ColorieValeur Coord
End Function
 ______________________________________________________   
Function boucle(Plage)
    For Each row In Plage.Rows
        MsgBox "test"
        'x = Application.WorksheetFunction.Min(.Range(.Cells(deb, 1), .Cells(fin, 1)))
        
    Next
End Function

J'arrive bien à parcourir mes lignes une a une avec la fonction boucle mais incapable de borner les cell(deb) et cell(fin) pour exploiter la fonction min .

Merci à ceux qui auront la gentillesse de m'eclairer.