Private Sub CommandButton1_Click()
Dim X As Integer
Dim Y As Integer
X = Range('a3').Value
Y = Range('B3').Value
MsgBox 'Vous avez selectionnez la plage : A' & X & ':O' & Y, vbOKOnly, 'Alors...'
Range('a' & X & ':o' & Y).Select
Selection.Copy
End Sub