My code is
\'\'
Public Sub Donnees_val() Dim RECSET2 As New ADODB.Recordset Dim Num_Ligne As Integer Dim Code_Isin As String Dim Tblo As Variant