ADODB encore une fois... SVP

Private Sub CommandButton1_Click()
    Dim Cn As ADODB.Connection
    Dim Cd As ADODB.Command
    Dim Rst As ADODB.Recordset
    Dim Fichier As String
    Dim VSearch As String
    Dim FlgFind As Boolean
    
    Fichier = ThisWorkbook.Path & "\base.xls"
        
    Set Cn = New ADODB.Connection
    Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & Fichier & ";" & _
        "Extended Properties=""Excel 8.0;HDR=No;"";"
    
    Set Cd = New ADODB.Command
    Cd.ActiveConnection = Cn
    ' Ouvrir 100 lignes d'enegistrement
    Cd.CommandText = "SELECT * FROM [Feuil1$A1:F100]"
    Set Rst = New ADODB.Recordset
    Rst.Open Cd, , adOpenKeyset, adLockOptimistic
    ' Se positionner sur le premier enregistrement
    Rst.MoveFirst
    ' Valeur à chercher, Flag de recherche
    VSearch = Range("A6"): FlgFind = False
    ' Effectuer une boucle pour trouver l'enregistrement correspondant
    Do While Not Rst.EOF
      ' Si la valeur du champ 1 est égal à la valeur cherchée
      If Rst(0).Value = VSearch Or Rst(0).Value = "" Then
        ' Met le flag de recherche à VRAI
        FlgFind = True
        ' Sort de la boucle
        Exit Do
      End If
      Rst.MoveNext
    Loop
    ' Si le flag de recherche est faux : aucun enregistrement trouvé
    ' On en créé un nouveau
    If FlgFind = False Then Rst.AddNew
    ' On rempli la ligne d'enregistrement avec les valeurs
    Rst(0).Value = Range("A6")
    Rst(1).Value = Range("B6")
    Rst(2).Value = Range("C6")
    Rst(3).Value = Range("D6")
    Rst(4).Value = Range("E6")
    Rst(5).Value = Range("F6")
    Rst.Update
    
    Cn.Close
    Set Cn = Nothing
    Set Cd = Nothing
    Set Rst = Nothing
End Sub

Private Sub CommandButton1_Click()
  Dim Cn As ADODB.Connection
  Dim Cd As ADODB.Command
  Dim Rst As ADODB.Recordset
  Dim Fichier As String
  Dim VSearch As String, I As Integer
  ' Chemin d'accès de la base
  Fichier = ThisWorkbook.Path & "\base.xls"
  ' Créer la connexion
  Set Cn = New ADODB.Connection
  Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
          "Data Source=" & Fichier & ";" & _
          "Extended Properties=""Excel 8.0;HDR=No;"";"
  Set Cd = New ADODB.Command
  Cd.ActiveConnection = Cn
  ' Ouvrir 1000 lignes d'enegistrement
  Cd.CommandText = "SELECT * FROM [Feuil1$A1:F1000]"
  Set Rst = New ADODB.Recordset
  Rst.Open Cd, , adOpenKeyset, adLockOptimistic
  ' Chercher la valeur dans la BdD
  Rst.Find "F1 = '" & Range("A6") & "'", , adSearchForward, 1
  ' Si on se retrouve à la fin des enregistrement
  ' On en créé un nouveau
  If Rst.EOF = True Then Rst.AddNew
  ' On rempli la ligne d'enregistrement avec les valeurs
  For I = 0 To 5  ' Mettre ici le nombre de champs -1
    Rst(I).Value = Cells(6, 1 + I)
  Next I
  ' Metre à jour la ligne d'enregistrement
  Rst.Update
  ' Fermer la connexion
  Cn.Close
  ' Effacer les variables objet
  Set Cn = Nothing
  Set Cd = Nothing
  Set Rst = Nothing
End Sub