Bonjour James
Le top!! Parfait..
Pour aller encore plus loin dans la démarche. (j'ai mis un fichier ce coup-ci).
Toutes mes secondes feuilles commence par Nom_ pour nomenclature.
après le " _ " c'est le nom de la feuil d'avant.
Pour permettre à toucher le moins possible le fichier.
cela aussi peut être automatique?
Ainsi que la macro du bouton ci dessous? Car là a chaque fois elle vient chercher dans mon autre fichier. Comme si je ne la mettais pas à la bonne place...
Sub Nom_Auto()
Dim Ws As Worksheet, dl, dlws
With Sheets("synthèse") ' feuille de synthèse
Application.ScreenUpdating = False
.Range("A2:M" & Rows.Count).Clear 'nettoyage feuille de synthèse
For Each Ws In Sheets 'on prend chaque feuille
If UCase(Left(Ws.Name, 3)) = "NOM" Then ' si feuille commence par NOM
dlws = Ws.Cells(Rows.Count, 2).End(xlUp).Row 'dernière ligne sur la feuille à copier
dl = .Cells(Rows.Count, 2).End(xlUp).Row + 1 ' 1ere ligne qui doit recevoir la copie
.Range("A" & dl).Resize(dlws - 1, 13).Value = Ws.Range("A2:M" & dlws).Value ' copie des valeurs Mettre 9 si(I) mettre 13 si M mettre 26 si Z ect...
End If
Next Ws
End With
End Sub