Recherche une valeur

Je fait un tableau pour cumuler des données.
Le but est que lorsque, je clic sur le bouton il ajoute 1 à l'endroit présélectionné (M49) . Les données à sélectionner AH40 à BK40.
L'endroit ou ça se cumule de AH50 à BK50.

Sub BRUT04()

If Range("M49") = Est retrouvé dans la ligne Range("AH40:BK40") Then
S'il se trouve en AJ40
Range("AJ50").Value = Range("AJ50").Value + 1
S'il se trouve en BK40
Range("BK50").Value = Range("BK50").Value + 1
End If

End Sub


Pouvez-vous m'aider, je ne trouve pas de cas similaires dans les forums.