lin = rechercheligne(classeur2, "Feuil1", "d", _
num_cpt _
, 2, 2)
Private Function rechercheligne(£classeur As String, feuille As String, colonne As String, [COLOR="Red"]dataf As String[/COLOR], depart As Long, valoffset As Integer)
For i = 2 To Workbooks(classeur1).Sheets("GLOBAL").Range("d65536").End(xlUp).Row
Workbooks(classeur1).Sheets("Extract").Cells(i, 25) = data1