Modification de ligne ?

Bonsoir j'ai cette macro :

With Selection.Borders(xlInsideHorizontal)

.LineStyle = xlContinuous

.Weight = xlThin

.ColorIndex = xlAutomatic

End With

J'aimerais que les lignes soient faites seulement à partir de la 2ème et ça ferait donc : mettre en ligne la 2, 3 puis 6, 7 puis 10, 11 ainsi de suite suivant la sélection.

Bonjour DJFA,

Si j'ai bien compris ta demande, voici une proposition :

Sub MEF()
Dim i As Integer

With Selection
    i = 1
    Do Until i >= .Rows.Count

    .Offset(i, 0).Resize(2, .Columns.Count).Borders(xlInsideHorizontal).LineStyle = xlContinuous
    .Offset(i, 0).Resize(2, .Columns.Count).Borders(xlInsideHorizontal).Weight = xlThin
    .Offset(i, 0).Resize(2, .Columns.Count).Borders(xlInsideHorizontal).ColorIndex = xlAutomatic

    i = i + 4

    Loop
End With

End Sub

A+

Je te dis ça dès que je test, merci.

Je n'ai pas eu le temps de tester encore, désolé.