Liste = "ppm1 sol. mère : " & NombreEnTxt([ppm_sol4].Offset(, 1), 2, Evaluate("Remember_TypeSepMil")) & " ppm"
Liste = Liste & vbCrLf & "Nb gouttes sol. mère : " & [ppm_sol4].Offset(2, 1) & " goutte" & IIf([ppm_sol4].Offset(2, 1) < 2, "", "s")
Liste = Liste & vbCrLf & "Vol. solvant : " & NombreEnTxt([ppm_sol4].Offset(19, 1), 2, Evaluate("Remember_TypeSepMil")) & " mL"
Liste = Liste & vbCrLf & "Vol. TOTAL : " & NombreEnTxt([ppm_sol4].Offset(20, 1), 2, Evaluate("Remember_TypeSepMil")) & " mL"
Liste = Liste & vbCrLf & "ppm2 solution : " & NombreEnTxt([ppm_sol4].Offset(24, 1), 2, Evaluate("Remember_TypeSepMil")) & " ppm"
Liste = Liste & vbCrLf & "Vol. prélevé : " & NombreEnTxt([ppm_sol4].Offset(21, 1), 2, Evaluate("Remember_TypeSepMil")) & " mL"
Liste = Liste & vbCrLf & "masse colloïde : " & µg_vs_mg(Evaluate("Remember_masseColloïdeGts") * [ppm_sol4].Offset(21, 1) / [ppm_sol4].Offset(20, 1))
MyData.SetText Liste
MyData.PutInClipboard 'copie de la liste dans le presse-papier