calculDistance <- function(matrice, vecteur) {
  for (i in 1:nrow(profiles)) {
    for (j in 1:nrow(profiles)) {
      distance_ij <- ((profiles[i,] - profiles[j,]) ^2) / vecteur;
      print(paste("Distance entre chaque element de la ligne", i, "et la ligne", j, ":"));
      print(distance_ij);
    }
  }
}