XL 2019 SQL ADODB avec plusieurs lignes en input

Sub Date_de_Naissance()

    Dim RECSET As New ADODB.Recordset, numero_de_police
  
    With Sheets("Coûts").Range("A1").CurrentRegion
    Call CONNEXION_PE("xxx", "xxx", "xxx")
    For I = 2 To .Rows.Count
  
    numero = .Cells(I, "A").Value
  
   


    If Len(numero) > 0 Then

         RECSET.Open " select pers.D_NAISSANCE as D_NAISSANCE  from dossier sousc, contractant cntr, personne pers" & _
            " where sousc.no_police = '" & numero & "'  " & _
            "  and sousc.is_contractant = cntr.is_ctant_pere and pers.is_personne=cntr.is_personne", cnn_Pe, adOpenDynamic, adLockBatchOptimistic

        
            If Not RECSET.EOF Then
                .Cells(I, "C").Value = RECSET.Fields("D_NAISSANCE").Value
            Else
                .Cells(I, "C").Value.Value = "Inconnu"
            End If
 
        RECSET.Close
    End If
    Next
End With
Call DECONNEXION_PE
End Sub

Sub Ma_date_New()
   
    Call Connexion_Pe("xx", "xx", "xx")
   
    Dim Sel_Pol As String
    Nl = 3 ' nombre de lignes (polices)  à prendre en compte
    Nr = 2 ' numéro de ligne de début de données
    For Each Cel In Application.Transpose(Cells(Nr, "A").Resize(Nl))
        Sel_Pol = IIf(Sel_Pol = "", "'", Sel_Pol & ",'") & Cel & "'"
    Next

    Dim RECSET As Object
    Set RECSET = CreateObject("ADODB.recordset")
        RECSET.Open _
            " select sousc.no_police as no_police " & _
                " from dossier sousc,contractant cntr, personne pers " & _
                " where sousc.is_contractant = cntr.is_contractant   " & _
                "   and     pers.is_personne = cntr.is_personne      " & _
                "   and      sousc.no_police in (" & Sel_Pol & ")", _
            cnn_Pe, adOpenDynamic, adLockBatchOptimistic
   
            If Not RECSET.EOF Then
                Cells(Nr, "C").CopyFromRecordset RECSET
                With Cells(Nr, "D").Resize(RECSET.RecordCount)
                    .FormulaR1C1 = "=IF(RC[-1]="""","""",DATEDIF(RC[-1],TODAY(),""y""))"
                    .NumberFormat = "General"
                End With
            Else
                MsgBox "Pas d'enregistrements correspondants à" & vbLf & Sel_Pol
            End If

        RECSET.Close
    Set RECSET = Nothing
   
    Call Deconnexion_Pe
End Sub