J'utilise le code suivant afin de copier le contenu de plusieurs feuilles sur une autre dans le même classeur :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub copier()
Application.DisplayAlerts = False
 
Dim WS As Worksheet, DerniereLigne As Long
 
For Each WS In Worksheets
WS.Rows("1").Delete
If WS.Name <> "MACHINES" Then
DerniereLigne = Worksheets("MACHINES").Range("A65536").End(xlUp).Row
WS.Range("A1:P1000").Copy Worksheets("MACHINES").Range("A" & DerniereLigne + 1)
WS.Delete
End If
Next WS
Application.DisplayAlerts = True
End Sub
Sa marche.
Toutefois, j'ai un problème : a la fin de la feuille "MACHINES", j'ai du texte qui s'écrit. Dans le cas présent on dirait un post du forum que j'aurrais eventuellemnt copier dans le presse papier.

J'ai essayé le code suivant pour vider le presse papier mais sa marche pas :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Application.CommandBars("clipboard").Controls(4).Execute
Une idée