Sub alkylation()
'
' alkylation Macro
' Macro recorded 09/11/2010 by bcollin
'
'
Dim Lg As Integer
Lg = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row + 2
Cells(Lg, 1).EntireRow.insert
Cells(Lg - 1, 1).Resize(1, 3).Copy Destination:=Cells(Lg, 1)
Cells(Lg - 1, 1).Resize(1, 3) = ""
ActiveSheet.Shapes("Rectangle 87").Copy
Range("D" & Lg).Select
ActiveSheet.Paste
Range("A" & Lg - 1).Select
End Sub
Sub Moins()
Rows(ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row).Delete
ActiveSheet.Shapes(Application.Caller).Delete
End Sub