Je dirais plutôt qu'en lisant un tout petit peu les codes du forum tu devrais pouvoir y arriver tout seul et même en utilisant l'enregistreur de macro... Il ne te donnerait pas cette syntaxe mais une autre équivalente.
Code:
Sub enregistrmacro()
For i = 1 To Range("A65500").End(xlUp).Row
Range("O1") = Cells(i, 1)
Range("P1") = Cells(i, 2)
'ta macro
Next
End Sub