Sub CreeSolution()
' Macro enregistrée le 27/01/2005 par P. BASTARD
Dim Cellule As Range
Application.ScreenUpdating = False
ActiveSheet.Unprotect
Sheets("Feuille mesure RX").Visible = True
Sheets("Feuille mesure RX").Range("A1:BK94").Copy
Set Cellule = Range("a65536").End(xlUp)(2)
Cellule.Select
ActiveSheet.Paste
Cellule.Select
ActiveCell.Offset(rowOffset:=1, columnOffset:=1).Activate
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlNoRestrictions
Application.ScreenUpdating = True
End Sub