Sub quadrilleUnSurDeux()
For Each Cell In Selection
If Cell.Column Mod 2 = 0 Then
Cell.Borders(xlEdgeLeft).Weight = xlMedium
Cell.Borders(xlEdgeRight).Weight = xlThick
Else
Cell.Borders(xlEdgeLeft).Weight = xlThick
Cell.Borders(xlEdgeRight).Weight = xlMedium
End If
Next Cell
End Sub
merci c'est quoi l'enregistreur de proco?