Autres Identifier numéro colonne pour function

Function essai(Valeur_Cherchee1 As Integer, Valeur_Cherchee2 As Integer)

Dim Trouve1 As Range
Dim Trouve2 As Range
Dim PlageDeRecherche As Range

'Dim Valeur_Cherchee1 As Integer
'Dim Valeur_Cherchee2 As Integer
Dim AdresseTrouvee1 As String
Dim AdresseTrouvee2 As String
Dim col As Integer


Set PlageDeRecherche = Feuil1.Range("B4:B19")
'*******************************

Set Trouve1 = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee1, Lookat:=xlWhole)
Set Trouve2 = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee2, Lookat:=xlWhole)

If Not Trouve1 Then AdresseTrouvee1 = Trouve1.Offset(0, 2) 'valeur à multiplier dans la colonne 4 : là où se trouve la valeur recherchée (dans la colonne B) et trouve la valeur (colonne D), soit 2 par rapport à Offset
If Not Trouve2 Then AdresseTrouvee2 = Trouve2.Offset(0, 2)


nb = AdresseTrouvee1 * AdresseTrouvee2

essai = nb
'vidage des variables
Set PlageDeRecherche = Nothing
Set Trouve1 = Nothing
Set Trouve2 = Nothing

End Function

If Not Trouve1 Then AdresseTrouvee1 = Trouve1.Offset(0, columns())