Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim DerLigne As Long
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
Sheets("CALCUL").Range("B11:F12").Copy
Sheets("Devis").Activate
DerLigne = Range("A65536").End(xlUp).Row + 1
Range("A" & DerLigne).Select
Selection.PasteSpecial Paste:=xlPasteValues
Sheets("CALCUL").Range("G11:K12").Copy
Sheets("Devis").Activate
DerLigne = Range("B65536").End(xlUp).Row + 1
Range("B" & DerLigne).Select
Selection.PasteSpecial Paste:=xlPasteValues
Sheets("CALCUL").Range("B15:F21").Copy
Sheets("Devis").Activate
DerLigne = Range("C65536").End(xlUp).Row + 1
Range("C" & DerLigne).Select
Selection.PasteSpecial Paste:=xlPasteValues
Sheets("CALCUL").Range("G15:K21").Copy
Sheets("Devis").Activate
DerLigne = Range("D65536").End(xlUp).Row + 1
Range("D" & DerLigne).Select
Selection.PasteSpecial Paste:=xlPasteValues
End If
End Sub