fusionner un bout de code

bonjour à vous:
je cherche à fusionner le code ci-dessous.
en l'état la séparation des colonnes ne s'applique pas ?
je vais calculer jusqu’à la colonne T.
merci de votre aide.

A+




Sub comptercouleurs()
Dim CompterCellules As Integer
Dim Cellules As Range

'compter dans la colonne A
Sheets("bdd").Select
Range("A3:A150").Select

For Each Cellules In Selection

If Cellules.Interior.ColorIndex = 3 Then 'n°3 rouge
CompterCellules = CompterCellules + 1
End If
Next Cellules
Sheets("bdd").Activate
[a1] = CompterCellules


'compter dans la colonne B
Sheets("bdd").Select
Range("B3:B150").Select

For Each Cellules In Selection

If Cellules.Interior.ColorIndex = 3 Then 'n°3 rouge
CompterCellules = CompterCellules + 1
End If
Next Cellules
Sheets("bdd").Activate
[B1] = CompterCellules

End Sub