Dim Cellule As Range
Dim p As Long
For p = 22 To 3669 Step 11
'Boucle sur chaque cellule de la plage A1:A10
For Each Cellule In Range(Cells(p, 6), Cells(p, 26))
' coller le résultat de la formule pdp
Cellule = Application.WorksheetFunction.PDP(Cellule)
Next Cellule
Next p