Passer une feuille de calcul en paramètre à une procédure

Bonjour,

Dans le cadre de mon stage, il m'est demandé de coder une macro sur excel permettant de convertir du .csv au format .json.

Seulement je connais à la fois très peux excel et encore moins le vba..

Ma question est donc la suivante :

J'ai cette première procédure, servant à ouvrir le fichier à convertir :

Sub menu_et_recup_path()
Dim nom_fichier As String
nom_fichier = Application.GetOpenFilename

Workbooks.OpenText Filename:=nom_fichier, Origin:=xlWindows, StartRow _
:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, Comma:=False, _
Space:=False, Other:=False
Call TestPlageUtilisee
End Sub

qui appelle la procédure suivante servant à me donner la plage de cellule de la feuille de calcul ouverte :

Sub TestPlageUtilisee()

Dim LaPlage As Range
'gère l'erreur de la feuille vide
On Error Resume Next
Set LaPlage = Plage(ActiveSheet)
If err.Number = 0 Then
MsgBox LaPlage.adress
End If
End Sub

Function Plage(Fe As Worksheet) As Range

With Fe
Set Plage = .Range(.Cells(1, 1), _
.Cells( _
.Cells.Find("*", .[A1], -4123, , _
1, 2).Row, _
.Cells.Find("*", .[A1], -4123, , _
2, 2).Column))
End With

End Function

Seulement je ne sais pas comment faire en sorte que ma procédure et fonction ci dessus prennent en compte la nouvelle feuille de calcul précédemment ouverte.

Si quelqu'un à des idées je vous remercie d'avance !