Bonjour,

Je viens vers vous parce que j'ai une erreur (je pense de débutant mais je ne vois pas ou est l'erreur)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
With Worksheets("Suivi PA").Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(1, 15)).Borders(x1EdgeBottom)
            .LineStyle = xlContinuous
             .Weight = xlThin
            .ColorIndex = 3
            End With