Bonjour,
Tu as fait une petite bétise dans ta macro
' Parcourir la liste des clients
For i = 2 To derniereligne
NomClient = Sheets("Clients").Cells(i, 1).Value
En effet la premiière date est en Range("C3") soit Cells(3,3) donc ta boucle doit commencer à i=3