Re
Je pense que ceci fera l'affaire
remplace dans le code du fichier que j'ai joint plus haut ceci
With classeur.Sheets(1)
For i = 7 To 9
Cells(Target.Row, i - 5) = .Cells(i, 3)
Next
End With
par ça
feuille = Array(0, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2) 'ici les feuilles ou ce trouve tes données dans l'ordre qui va bien (c'est pour ça que je voulais un exemple complet)
adresse = Array("", "b7", "c7", "g4", "b7", "c7", "g4", "b7", "c7", "g4", "b7", "c7") 'ici les cellules ou ce trouvent les données dans l'ordre de la feuille de recap
For i = 1 To 11
With classeur.Sheets(feuille(i))
Cells(Target.Row, i+1) = .Range(adresse(i))
End With
Next
ensuite rajoute sous
Dim classeur As Object
ceci
Dim feuille,adresse
Voilà
@+Vincent
Ps cela ne fonctionne que si tes données sont toujours placées de la même façon