re,
A la fin du code il suffit de modifier le bout de code :
.Cells(Lig, 4) = Application.Average(Eval) 'Une fois que l'on a parcouru toutes les colonnes, on fait la moyenne des valeurs en m?moire
.Cells(Lig, 2) = Application.Average(Eval) 'Une fois que l'on a parcouru toutes les colonnes, on fait la moyenne des valeurs en m?moire