Macro trouver solution plus simple

le contenue de mes onglet (pour les cellules A1 U400) vont bien se coller les uns à la suite de l'autre sur mon onglet Feuil3?? non. Ils vont tous se coller en A15.
Dans ton code remplace :

For Each Ws In Wb.Worksheets 
'Boucle sur chaque cellule de la plage A1:A10 
Range("A1:U400").Copy 
Windows("synthèse.xls").Activate 
Sheets("Feuil3").Select 
Range("A15").Activate 
Selection.Paste 
Next Ws

par :

For Each Ws In Wb.Worksheets 
Range("A1:U400").Copy Windows("synthèse.xls").Sheets("Feuil3").Range("A65536").End(xlUp).Offset(1, 0) 
Next Ws

Non ça doit venir de moi. Remplacer (sans conviction) Windows par WorkBooks :

Range("A7:U200").Copy WorkBooks("synthèse.xls").Sheets("Feuil3").Range("A65536").End(xlUp).Offset(1, 0)

("A65536").End(xlUp) :

nous donne la dernière cellule non vide de la colonne A (en fait, VBA part de la dernière cellule colonne A (A65536) et remonte (xlUp) jusqu'à ce qu'il trouve une donnée).

Offset(ligne, colonne) :

"décale" de x ligne, x colonne...
ActiveCell.Offset(-3, 5).Value renvoie la valeur contenue dans la cellule située 3 lignes au dessus et 5 colonnes à droite de la cellule active
ActiveCell.Offset(1, -3).Value renvoie la valeur contenue dans la cellule située 1 ligne au dessous et 3 colonnes à gauche de la cellule active

non pas de paste manquant. Mais si tu veux copier quelque chose, il convient de l'activer d'abord... Donc effectivement, il ne pouvait rien se passer dans ton cas. Ta macro dit :
Pour chaque classeur ouvert
Pour chaque feuille de ce classeur
copie le range(gnagnagna) du classeur actif et colle le dans le classeur(synthèse)Feuille(3) etc...
Ca ne peux pas fonctionner puisque le classeur actif est... le classeur(synthèse)... Ceci est mieux déjà :

Sub mo() 
Dim Wb As Workbook 
Dim Ws As Worksheet 
Dim cell As Range 
For Each Wb In Application.Workbooks 
Wb.Activate 
For Each Ws In Wb.Worksheets 
Ws.Activate 
Range("A7:U200").Copy Workbooks("synthèse.xls").Sheets("Feuil3").Range("A65536").End(xlUp).Offset(1, 0) 
Next Ws 
Next Wb 
End Sub

1- oui cela posera problème... Mais tu pourras le contourner en déprotégeant...
2- oui. Exemple : copier toutes les feuilles sauf celles nommées "Feuil2" :
Sub mo()
Dim Wb As Workbook
Dim Ws As Worksheet
Dim cell As Range
For Each Wb In Application.Workbooks
Wb.Activate
For Each Ws In Wb.Worksheets
If Ws.Name <> "Feuil2" Then
Ws.Activate
Range("A7:U200").Copy Workbooks("synthèse.xls").Sheets("Feuil3").Range("A65536").End(xlUp).Offset(1, 0)
End If
Next Ws
Next Wb
End Sub

ok! pour le 2. ne connaissant pas le nom des onglets a l'avance, je ne pourrai pas utiliser cette méthode, par contre vu que je diffuse l'outil, peut on envisager soit de mettre un "espion" ds les feuilles qui m'interresseront pour ma synthèse, soit colorer les onglet et ne copier que ceux ci ou une autre méthode qqc?

tout est envisageable...
Exemple :
Tester le contenu d'une cellule :

If Range("AA1").Value = "espion" Then

!!!!!!!!!! J'avais pas penser à ca, je partais deja dans les codes des pages etc ....
Je pense partir sur la coloration intérieur de la cellule A8 qui est la seule verte !!



Sub mo()
Dim Wb As Workbook
Dim Ws As Worksheet
Dim cell As Range
For Each Wb In Application.Workbooks
Wb.Activate
For Each Ws In Wb.Worksheets
If range("A8").interior.colorindex=10 then
Ws.Activate
Range("A7:U200").Copy Workbooks("synthèse.xls").Sheets("Feuil3").Range("A65536").End(xlUp).Offset(1, 0)
End If
Next Ws
Next Wb
End Sub


Mais ca marche pas !!
je pense qu'il me manque then qqch, mais je ne sais pas quoi

En cas merci pour ton aide pijaku !!!

Salut,
Hum hum... Tu n'auras donc pas retenu la leçon.
Même erreur qu'un post précédent.
Il faut d'abord rendre la feuille active :

For Each Wb In Application.Workbooks  
Wb.Activate  
For Each Ws In Wb.Worksheets  
Ws.Activate 
If range("A8").interior.colorindex=10 then