Sub STHighLight()
Dim r As Range
For Each r In Feuil1.Range("B1:B" & Feuil1.[B1].CurrentRegion.Rows.Count)
If r.Value = "Sous-total" Then
With Feuil1.Range("A" & r.Row & ":F" & r.Row)
.Font.Bold = True
.Interior.Color = RGB(255, 0, 0)
End With
End If
Next r
End Sub
Sub gras_souligné()
For i = 2 To Range("b" & Rows.Count).End(xlUp).Row
If Cells(i, 2).Value = "Sous-total" Then
Range("A" & i & ":F" & i).Select
Selection.Font.Bold = True
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Color = -16776961
.TintAndShade = 0
.Weight = xlMedium
End With
End If
Next
End Sub
Range("A1:F60").Borders.LineStyle = 1
Une suggestion ?donc si vous avez des idées ou des suggestions je suis preneur merci à tous pour votre aide.