Originariamente inviato da nicola75ss
Allora bastava modificare la condizione in

If i Mod 7 = 1 Then

Prego.

Infatti per questo dicevo "inezia"