XL 2013 déplacement range avec condition à l'arrivée -VBA

Private Sub CommandButton1_Click()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim PL As Range 'déclare la variable PL (PLage)
Dim DEST As Range 'déclare la variable CEL (cellule de DESTination)

Set O = Worksheets("Base") 'définit l'onglet O
Set PL = O.Range("A3:D3") 'définit la plage PL
Set DEST = O.Cells(Application.Rows.Count, "E").End(xlUp).Offset(1, 0) 'définit la cellule de destination DEST (première cellule vide de la colonne E de l'onglet O)
PL.Copy DEST 'copie la plage PL dans DEST
PL.ClearContents 'efface la plage PL
End Sub

If ComboBox1.Value = "plage2" Then
Dim x As Integer
x = Range("A32767").End(xlUp).Row + 1

If ComboBox1.Value = "plage 2" Then
Dim x As Integer
x = Range("E32767").End(xlUp).Row + 1