Excel VBA ListView

Merci à tous, je patine dans la semoule avec un petit bout de programme qui m'affiche une erreur que je ne comprend pas . Si quelqu'un trouve où est l'erreur ??

Bonjour Leleu-jl,

Il manque le "NExt" à la boucle "For lg = 2 to UBound(C)".