Merci.
Par contre, j'aimerais que les copier-coller suivant se fassent à la suite...
Sub Synthèse()
'
' Synthèse Macro
'
'
Rows("7:7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Synthese").Select
Range("A4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A5").Select
Sheets("liste des devis en cours").Select
End Sub