Sub call_recap(myD As Date, myNo As String, myVal)
Dim fso As Object
Dim itEx, tabort As Boolean
Dim I, K As Integer
Dim J As Integer
'Dim celluletrouve As Cell
K = 0
tabort = False
'Ouverture du classeur Récapituatif-Remboursement.xlsx'
MyPath = ActiveWorkbook.Path ' On récupère le chemin actuel du classeur '
Set fso = CreateObject("Scripting.FileSystemObject") 'vérifie l'existence du fichier '
x = fso.FileExists(MyPath & "\Historique-Récapitulatif" & ".xlsm")
If x = True Then 'si oui, on ouvre ce fichier
Set wk = Workbooks.Open(Filename:=ThisWorkbook.Path & "\Historique-Récapitulatif" & ".xlsm")
wk.Activate
Application.Visible = True
' Trouver la ligne du bon numéro d'adherent "
With Sheets("Récapitulatif")
Set celluletrouve = wk.Sheets("Récapitulatif").Range("a4:a29").Find(myNo, LookIn:=xlValues, lookat:=xlWhole)
wk.close