Bonjour,
L'erreur provient de la ligne lig = lig + 1 laquelle incrément la ligne d'écriture au Next K ...
Remplace lig = lig + 1 par lig = w.Cells(Rows.Count, "A").End(xlUp).Row + 1 ...
Ainsi, il n'y aura pas de ligne vide en ligne 18 d'Avril (selon fichier exemple) et Mai commencera bien à la ligne 15 ...
ric