Access vba: atteindre un champ par variable

Option Compare Database
Option Explicit
'


Private Sub ExecuteInsertionNomChampDynamique()

    Dim DBCourant As Database
    Dim RecClone As Recordset
    Dim Message As String, NomChamp As String
    Dim Champ As Variant
    Dim Nombre As Long, Boucle As Long, Limite As Long
    
    Set DBCourant = CurrentDb()
    Set RecClone = DBCourant.OpenRecordset("Req_SelectionTous")
    
'    For Each Champ In RecClone.Fields
'        ' Capture nom du champ
'        Message = Message & Champ.Name & vbCrLf
'    Next
'
'    MsgBox Message
'    Message = ""
    
'    RecClone.AddNew
'    For Boucle = 2000 To Limite
'        NomChamp = CStr(Boucle)
'        RecClone.Fields(NomChamp).Value = Boucle
'    Next Boucle
'    RecClone.Update
    
    If (Not RecClone.EOF) Then
        RecClone.MoveLast
        RecClone.MoveFirst
        Nombre = RecClone.RecordCount
    End If

    Limite = 2012

    RecClone.Edit
    For Boucle = 2000 To Limite
        NomChamp = CStr(Boucle)
        RecClone.Fields(NomChamp).Value = CStr(Boucle * 10)
    Next Boucle

    RecClone.Update
    RecClone.Close

End Sub
'