De VBA vers SAS

Bonjour,

je dois adapter à SAS un outil crée sous Excel.

Voici la partie du programme qui me freine :

Sub Convergeance()

Range("B25").Value = Range("L38").Value
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotCache.Refresh

Do

Range("B25").Select
ActiveCell.Value = Range("B25").Value + Range("D27").Value
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotCache.Refresh

Loop While Range("D28").Value > 0.00001

je n'ai JAMAIS fait de VBA et je ne vous cache pas que j'ai un peu de mal à comprendre cette macro...
et puis que fait vraiment la boucle do...loop while

mille mercis ^^