Petite amélioration de ton code :
Dim a As Integer
For a = 5 To Profondeurson Step 2
With Cells(a, 5).Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic...
Petite amélioration de ton code :
Dim a As Integer
For a = 5 To Profondeurson Step 2
With Cells(a, 5).Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic...
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.