Mettre en gras les valeurs identiques dans une colonne

sub gras(cel as range)

for i = 1 to 150 
    if cells(i,2).value = cel.value then 
        cells(i,2).font.bold = true 
    end if 
next i 
 
end sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub

Call gras(Target)

End Sub
Sub gras(cel As Range)

For i = 1 To 150
    If Cells(i, 2).Value = cel.Value Then
        Cells(i, 2).Font.Bold = True
    End If
Next i
    
End Sub