Dans dico, la clé est le nom du client et le contenu son email
dico(Cells(i, "A").Value) = Cells(i, "F").Value
Ensuite, pour chaque clé-client
For Each client In dico.Keys
j'envoie un mail avec comme premier paramètre l'email
envoimail dico(client), texte
et le sous-programme en tient compte comme premier paramètre
Sub envoimail(qui, texte)
Pour des questions de compréhensions, j'aurais du mettre une terme comme email plutôt que qui
C'est très très bien de chercher à comprendre, c'est comme cela que l'on devient autonome !