Bonjour,
Range(M5, V5).ClearContents
Mauvaise syntaxe... déjà signalé !
Set tab2 = Range(M5, V5)
de même.
If StrComp(val, Cells(nl, 2) = 0) Then
Encore un problème de syntaxe (parenthèse mal placée).
Et on a la même dans toutes les fonctions...
Et comme l'a dit h2so4, les fonctions cherchent sur la feuille DEP qui n'existe pas...
Et tu améliorerais la lecture en indentant ton code...
Cordialement.