Sub Copie_Data()
' Copie_Data Macro
Dim CelDebut As Range, CelCollage As Range, C As String
C = ActiveSheet.Name
Sheets("Mesures").Select
Set CelDebut = Application.InputBox(prompt:="Sélection Début", Type:=8)
Sheets(C).Select
Set CelCollage = Application.InputBox(prompt:="Sélection collage", Type:=8)
CelDebut.Resize(9).Copy CelCollage
End Sub