Macro VBA : recuperation de valeur d'une feuille a l'autre

Bonjour ,
j'essaie de recuperer des valeurs d'une feuille a une autre mais
et donc j'ai imbriqué deux boucles for
mais j'obtiens pas le resultat escompté
voici mon code


Sub PP_Information()
Dim a1 As String
Dim a2 As String
Dim m As Integer
Dim numColpp As Integer


numColpp = 29
' je recupere les données des cinq précédentes variantes
For m = 2 To 7
For i = numColpp - 5 To numColpp


Sheets("PP").Select
a1 = Cells(3, i).Value
a2 = Cells(5, i).Value
Cells(203, i).Value = a1
Cells(204, i).Value = a2
Cells(203, i).Select
ActiveWorkbook.Names.Add Name:="xpp" & i, RefersToR1C1:="=PP!R203C" & i
Cells(204, i).Select
ActiveWorkbook.Names.Add Name:="xps" & i, RefersToR1C1:="=PP!R204C" & i


Sheets("exemple").Select

Sheets("exemple").Range("c" & m).Value = Sheets("PP").Range("xpp" & i).Value & "_" & Sheets("PP").Range("xps" & i).Value

'Sheets("exemple").Range("B" & m).Value = Sheets("PP").Range("xps" & i).Value


'nommer les différents emplacements ou je stock mes données
''''''
Next
next
end sub


merci pour votre aide