[Dugenou]

Salut à tous,

malgrès mes maigres connaissances macrotiques je pense avoir la solution : ajouter un point . devant les "cells" de la ligne qui calcule le message soit :
Anni = Anni & vbCrLf & CStr(.Cells(i, 1)) & " " & CStr(.Cells(i, 2)) & " --> le " & CStr(.Cells(i, 8))

afin de faire référence au with de début et gardant with sheets("Client")
j'ai testé chez moi ça fonctionne

Cordialement