Sub Mise_en_Forme()
'
'Ouverture du fichier stats fv.xlsx
Workbooks.Open Filename:="C:\TRESO\Données.xlsx"
'Mise en forme ligne Total Recettes et Total Dépenses
derligne = Cells(Rows.Count, 1).End(xlUp).Row
For i = derligne To 2 Step -1
If Cells(i, 1) = "Total Recettes" Or Cells(i, 1) = "Total Dépenses" Then
With Range("A" & i, "S" & i)
.Font.Bold = True
.Borders.LineStyle = xlContinuous
.Borders.Weight = xlMedium
.Borders(xlInsideVertical).LineStyle = xlNone
End With
End If
Next i
End Sub