func remplacerParPosition <_Element>(_ ensemble: Ensemble<_Element>
                                    ,_ element: _Element
                                    ,_ position: Int) 
                                    -> Ensemble<_Element> 
{
   let nouvelEnsemble = Ensemble_Element(ensemble)
   if position < 1 {
      return ensemble
   }
   var index = 1
   var positionTrouvée = false
   Initialiser(ensemble)
   while Enumeration(ensemble) && !positionTrouvée {
      if index == position {
         Ranger_Element(nouvelEnsemble,element)
         positionTrouvée = true
      } else {
         index = index + 1
         Ranger_Element(nouvelEnsemble,Element_Courant(ensemble))
      }
      Element_Suivant(ensemble)
   }
   while Enumeration(ensemble) {
      Ranger_Element(nouvelEnsemble,Element_Courant(ensemble))
      Element_Suivant(ensemble)
   }
   return nouvelEnsemble
}