Sub Macro1()
ActiveSheet.AutoFilterMode = False
Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp)).AutoFilter Field:=1, Criteria1:=RGB(255, 255, 0), Operator:=xlFilterCellColor
MsgBox "Colonne A: " & Application.Subtotal(3, ActiveSheet.AutoFilter.Range) - 1
ActiveSheet.AutoFilterMode = False
Range(Cells(1, 2), Cells(Rows.Count, 2).End(xlUp)).AutoFilter Field:=1, Criteria1:=RGB(255, 255, 0), Operator:=xlFilterCellColor
MsgBox "Colonne B: " & Application.Subtotal(3, ActiveSheet.AutoFilter.Range) - 1
ActiveSheet.AutoFilterMode = False
Range(Cells(1, 3), Cells(Rows.Count, 3).End(xlUp)).AutoFilter Field:=1, Criteria1:=RGB(255, 255, 0), Operator:=xlFilterCellColor
MsgBox "Colonne C: " & Application.Subtotal(3, ActiveSheet.AutoFilter.Range) - 1
ActiveSheet.AutoFilterMode = False
End Sub