Public Sub Format_Ligne(feuille As String, ByVal lig As Integer, dbcol As Integer, fncol As Integer)
Dim ligne, fligne As Range
With Worksheets(feuille)
Set ligne = .Range(.Cells(lig, dbcol), .Cells(lig, fncol))
Set fligne = .Cells(lig, fncol)
End With
ligne.Borders.LineStyle = 1
ligne.Borders.Weight = xlMedium
ligne.Borders.Color = RGB(230, 230, 230)
fligne.Borders(xlEdgeRight).Color = RGB(89, 89, 89)
ligne.Borders(xlEdgeTop).Color = RGB(230, 230, 230)
ligne.Borders(xlEdgeBottom).Color = RGB(89, 89, 89)
If lig Mod 2 = 0 Then
ligne.Interior.Color = RGB(232, 232, 232)
Else
ligne.Interior.Color = RGB(209, 209, 209)
End If
End Sub