Dim RSActeurs As DAO.Recordset
  Dim RSActeursArchive As DAO.Recordset
  
  Set RSActeurs = CurrentDb.OpenRecordset("Acteurs", dbOpenTable)
  Set RSActeursArchive = CurrentDb.OpenRecordset("SELECT Acteurs.ActCode, Acteurs.ActNom, Acteurs.ActPrénom " + _
                                                 "FROM (Acteurs INNER JOIN Distributions ON Acteurs.ActCode = Distributions.DistCodeActeur) " + _
                                                 "GROUP BY Acteurs.ActCode, Acteurs.ActNom, Acteurs.ActPrénom " + _
                                                 "HAVING COUNT (Distributions.DistCodeActeur) >= 6")
                                                 
  RSActeurs.Index = "ActCode"
  RSActeurs.MoveFirst
  
  RSActeursArchive.MoveFirst
  
  Do While Not RSActeursArchive.EOF
    RSActeurs.Seek "=", RSActeursArchive!ActCode
    RSActeurs.Delete
    RSActeursArchive.MoveNext
  Loop
  
  RSActeursArchive.MoveFirst
  DoCmd.SetWarnings False
  
  Do While Not RSActeursArchive.EOF
    DoCmd.runQSL ("INSERT INTO ActeursArchiveStars " + "VALUES ('" + RSActeursArchive.Fields("ActCode") + "','" + RSActeursArchive.Fields("ActNom") + "','" + RSActeursArchive.Fields("ActPrénom") + "')")
    RSActeursArchive.MoveNext
  Loop