MacroVBA_Incrementer une variable dès l'appel de la procédure

Bonjour ,
j'ai fais une procédure qui me permet de recuperer des valeurs d'une feuille d'un autre classeur .
maintenant elle me permet de recuperer mes valeurs en une seule fois
et moi j'aimerais que ma vraible qui me permet de parcourir les colonne et de recuperer mes valeurs s'incremente a chaque fois que je lance l'appel de ma procédure

voic mon code:
Public i As Integer

Sub Value_PP()
i = 16

'recuperer les valeurs de la feuille PP
Sheets("PP").Select
a1 = Cells(3, i)
b1 = Cells(5, i)

a2 = Cells(3, i - 1)
b2 = Cells(5, i - 1)

a3 = Cells(3, i - 2)
b3 = Cells(5, i - 2)

a4 = Cells(3, i - 3)
b4 = Cells(5, i - 3)

a5 = Cells(3, i - 4)
b5 = Cells(5, i - 4)

a6 = Cells(3, i - 5)
b6 = Cells(5, i - 5)

'copie des valeurs de PP vers le PDP kitting

Sheets("creation").Select

Sheets("creation").Range("B5").Value = a1 & Chr(10) & b1
Sheets("creation").Range("B6").Value = a2 & Chr(10) & b2
Sheets("creation").Range("B7").Value = a3 & Chr(10) & b3
Sheets("creation").Range("B8").Value = a4 & Chr(10) & b4
Sheets("creation").Range("B9").Value = a5 & Chr(10) & b5
Sheets("creation").Range("B10").Value = a6 & Chr(10) & b6

je veux incrementer i à chaque moment que je vais cliquer sur un bouton qui serait affecté a cette procédure ou macro

merci d'avance pour votre aideExplorer 8.0</config>