listes te tableaux suite et fin

Bonjour,
je refais un post pour un tout petit souci de copier coller.
je voudrais coller les cellules copiées en C5, puis en R5. Lui colle en C5
puis en P5.
Voici le VBA du module et de la feuille. Quel soucis y-a-t-il ?
je vous remercie? YANN
------
'1. Création de la liste CONGES PAYES
Sub CreationListeA()
Dim Ligne As Integer
Ligne = 1
On Error Resume Next
Sheets("Confrontation CP").Activate
If Err <> 0 Then
Sheets.Add
ActiveSheet.Name = "Confrontation CP"
Sheets("CP 05-06").Select
For i = 0 To 300 Step 20
Range("D4").Offset(i, 0).Copy Sheets("Confrontation
CP").Range("A" & Ligne)
Ligne = Ligne + 1
Next i
End If
On Error GoTo 0
End Sub

'3. Module Routine CONGES PAYES
Sub RoutineA(Var)
Sheets("CP 05-06").Select
Range("B" & Var & ":O" & Var + 49).Copy
Sheets("Confrontation CP").Select
If [A1] = 0 Then
[A1] = 1
Range("C5").Select
Else
[A1] = 0
Range("R5").Select
End If
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'ActiveSheet.Paste
End Sub
-------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Var
If Intersect(Target, Range("A2:A17")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Var = Application.Match(Target.Value, Sheets("CP 05-06").Range("C:C"), 0)
RoutineA Var
Application.EnableEvents = True
End Sub
----------