Ca marche, mais deux problème se posent.
1. une fois ajouté dans le document final, la macro ne copie que 177 des délibé que j'ai besoin.
2. qui va de paire avec le premier lors des copie, la macro copie aussi les numéro qui sont repris plusieurs fois (vu qu'il y a parfois plusieurs financement pour la même délibé, donc plusieurs ligne.)
Je pensais essayer d'ajouté la condition que la copie ne reprend pas 2 fois le valeur reprise en "S" étant donnée que celle ci est différente pour chaque nouvelle délibé.
Je ne sais pas vraiment comment formulé la chose :
And If (S:S)<>(S:S)-1 Than For i = 2 To Application.Max(2, fE.Range("A" & Rows.Count).End(xlUp).Row)
ln = Application.Max(4, fd.Range("B" & Rows.Count).End(xlUp)(2).Row)
For k = 1 To 11
colE = Choose(k, "F", "E", "M", "N", "O", "Q", "U", "S", "AJ", "AD", "T")
colD = Choose(k, "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L")
fd.Cells(ln, colD) = fE.Cells(i, colE)
Next k
Next i
End if
Cela pourrai marcher d'après toi ?
Merci pour le travail effectué.