Salut,
Ton fichier est une véritable usine à gaz, ça fout un peu la trouille d’y mettre le nez.
De plus, tes codes sont assez emberlificotés – comme par exemple pourquoi mettre un ‘’With Sheets("64_4t")’’ alors que tu es justement sur la feuille "64_4t"au lancement de la macro, ou toutes ces instructions inutiles ‘’Values’’ – et tu as l’air de les modifier au petit bonheur la chance.
Un autre exemple d’aberration : Dans ta deuxième macro, tu démarres ta boucle ‘’For i = 1 To Valeur’’ à 1 alors qu’il n’y a rien d’inscrit dans les lignes 1 à 4, mais tu es sauvé par la condition suivante ‘’ If .Range("k" & i) < 14 And Range("k" & i) > 0 Then’’ et un autre exemple de petit bonheur la chance est que lorsque tu veux modifier ce passage, tu ne te rends pas compte que tu n’es plus sauvé par la ligne suivante si tu la tronques comme tu l’as fait : ‘’If .Range("l" & i) < 14 Then’’.
J’ai commencé par modifier ta boucle ainsi ‘’For i = 6 To Valeur’’ afin qu’elle ne démarre qu’à la première ligne utilisable, mais ça pète un peu plus loin.
Tout ceci pour te dire que j’abandonne, mais qu’il te reste un petit espoir si tu t’y prends correctement : Indique ce fil comme résolu et ouvres-en un autre sur lequel tu places immédiatement ton fichier. Donnes des explications claires et non contradictoires : sur ton tout premier message tu as écrit ‘’ Je voudrais mettre If .Range("v" & i) < 14 Then’’ mais dans ta macro tu as autre chose !! Etc.
Et si quelqu’un a le courage d’attaquer ton problème en toute connaissance de cause, tant mieux pour toi.