Increment d'une macro

Bonjour,

Voici une macro existante dans un dossier.
Je dois la copier avec incrément sur 200 lignes, j'en ai pour des mois !
Est il possible de la modifier pour que le numéro de ligne utilisé soit celui du bouton qui la commande ?
Merci de votre aide, moi je nage ...



Sub D_2()
'
' D_2 Macro
' départ n° 2
'

'
Range("H5").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 5296274
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("H5").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-2]="""","""",IF(RC<>0,RC,NOW()))"
Range("F6").Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
Range("F6").Select
End Sub