macro colorie selon variable

Bonjour j'aimerais généré une macro qui puisse me mettre en couleur plusieurs cellules avec un "décalage" calculé selon une formule (prélèvement toutes les X pièces). C'est à dire dans le fichier "test" ci-joint toutes les 15 pièces, la macro colorie les celulles en bleu. Comment peux-t-on créer cette macro ?

Bonjour,

Code à placer dans le module de la feuille concernée.
La procédure est lancée automatiquement à chaque modification du nombre de prélèvements ou du pas.

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Worksheet_Change(ByVal Target As Range) Dim DerLig As Long, i As Long If Target.Count = 1 And Not Application.Intersect(Target, Range("F2:F3")) Is Nothing Then DerLig = Range("A" & Rows.Count).End(xlUp).Row Range("A1:B" & DerLig).Interior.ColorIndex = xlColorIndexNone For i = Range("F3") + 1 To DerLig Step Range("F3").Value Range("A" & i).Offset(1, 0).Resize(Range("F2"), 2).Interior.ColorIndex = 23 Next i End If End Sub

---

Cordialement.