Private Sub Comptoirs_Suite_Click()
If QCLE.Value <> "" Then
'-----------------'
' Première partie '
'-----------------'
'insertion de ligne
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
'Copie mise en forme
Sheets("1").Select
Range("A1:k25").Select
Selection.Copy
Sheets("Devis").Select
Selection.Insert Shift:=xlDown
'-----------------Surface----------------
ActiveCell.Offset(1, 3).Range("A1").Select
ActiveCell.Value = SCLE.Value
ActiveCell.Offset(0, 4).Range("A1").Select
ActiveCell.Value = "Comptoir Ligne Essentiel"
'Retour à l'origine
ActiveCell.Offset(-1, -7).Range("A1").Select
'Déplacement de**
ActiveCell.Offset(7, 2).Range("A1").Select
ActiveCell.Value = QCLE.Value
'Retour à l'origine
ActiveCell.Offset(-7, -2).Range("A1").Select
'-----------------PRIX--------------------
'Déplacement de**
ActiveCell.Offset(7, 3).Range("A1").Select
ActiveCell.Value = "élément de 600"
ActiveCell.Offset(0, 3).Range("A1").Select
ActiveCell.Value = "='Tarifs'!r268c6 "
'Retour à l'origine
ActiveCell.Offset(-7, -6).Range("A1").Select
'Copie descriptif
ActiveCell.Offset(12, 3).Range("A1").Select
Sheets("Descriptif").Select
Range("H201:H207").Select
Selection.Copy
Sheets("Devis").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(-12, -3).Range("A1").Select
'----------------------------------------
ActiveCell.Offset(26, 0).Range("A1").Select
'----------------'
' Seconde partie '
'----------------'
' insertion de ligne '
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
'Copie mise en forme
Sheets("1").Select
Range("A1:k25").Select
Selection.Copy
Sheets("Devis").Select
Selection.Insert Shift:=xlDown
'-----------------Surface----------------
ActiveCell.Offset(1, 3).Range("A1").Select
ActiveCell.Value = SCLC.Value
ActiveCell.Offset(0, 4).Range("A1").Select
ActiveCell.Value = "Comptoir Ligne Continue"
'Retour à l'origine
ActiveCell.Offset(-1, -7).Range("A1").Select
'Déplacement de**
ActiveCell.Offset(7, 2).Range("A1").Select
ActiveCell.Value = QCLC.Value
'Retour à l'origine
ActiveCell.Offset(-7, -2).Range("A1").Select
'-----------------PRIX--------------------
'Déplacement de**
ActiveCell.Offset(7, 3).Range("A1").Select
ActiveCell.Value = "élément de 600"
ActiveCell.Offset(0, 3).Range("A1").Select
ActiveCell.Value = "='Tarifs'!r269c6"
'Retour à l'origine
ActiveCell.Offset(-7, -6).Range("A1").Select
'Copie descriptif
ActiveCell.Offset(12, 3).Range("A1").Select
Sheets("Descriptif").Select
Range("H211:H217").Select
Selection.Copy
Sheets("Devis").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(-12, -3).Range("A1").Select
'----------------------------------------
ActiveCell.Offset(26, 0).Range("A1").Select
End If
End Sub