Sub ajouterundevis_2()
Dim Nom As String
'Blocage écran
Application.ScreenUpdating = False
Sheets("Devis général 1").Copy After:=Sheets(ThisWorkbook.Sheets.Count)
'Récupération du nom de la dernière feuille
Nom = Sheets(ThisWorkbook.Sheets.Count).Name
With Sheets("Synthèse devis")
.Rows("6:6").Insert Shift:=xlDown
.Range("A6").FormulaR1C1 = "='" & Nom & "'!R[-5]C[7]"
.Range("B6").FormulaR1C1 = "='" & Nom & "'!R[7]C[1]"
.Range("C6").FormulaR1C1 = "='" & Nom & "'!R[15]C[1]"
.Range("D6").FormulaR1C1 = "='" & Nom & "'!R[21]C[-2]"
.Range("E6").FormulaR1C1 = "='" & Nom & "'!R[32]C[3]"
.Range("A7:G7").Copy
.Range("A6:G6").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
.Columns("A:A").EntireColumn.AutoFit
.Activate
.Range("$A$1").Select
End With
Application.CutCopyMode = False
End Sub