Réponse acceptée !
En cherchant un peu j'ai trouvé
Je vous donne la solution que j'ai trouvé on sais jamais ca peux toujours servir ;)
Dim rel As DAO.Relation
Dim chp As Field
Set rel = CurrentDb.CreateRelation("NomRelation", "Table1", "Table2")
rel.Attributes = dbRelationDeleteCascade + dbRelationUpdateCascade
Set chp = rel.CreateField("NomChamps1CléTable1")
chp.ForeignName = "NomChamps1CléTable2"
rel.Fields.Append chp
Set chp = rel.CreateField("NomChamps2CléTable1")
chp.ForeignName = "NomChamps2CléTable2"
rel.Fields.Append chp
CurrentDb.Relations.Append rel