Re : Une ligne bien grasse
bonsoir polik
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cellule As Range
For Each Cellule In Range("B3:B" & Range("B65536").End(xlUp).Row)
If UCase(Left(Cellule.Value, 1)) <> UCase(Left(Cells(Cellule.Row - 1, Cellule.Column).Value, 1)) Then
Cellule.Font.Bold = True
Cellule.Offset(0, 1).Font.Bold = True
Cellule.Offset(0, 2).Font.Bold = True
Cellule.Offset(0, 3).Font.Bold = True
Else
Cellule.Font.Bold = False
Cellule.Offset(0, 1).Font.Bold = False
Cellule.Offset(0, 2).Font.Bold = False
Cellule.Offset(0, 3).Font.Bold = False
End If
Next Cellule
End Sub
E et F