Parcours d'une colonne en vba

Bonjour,
Je désire parcourir une colonne afin de savoir si ce que contient le champs de mon formulaire est écrit dans une cellule de cette colonne, si c'est le cas je souhaite ajouter 1 à la valeur contenu dans la cellule voisine et sinon ajouter une ligne le contenu du champ et la valeur 1 dans la cellulue adjacente

J'ai bien tenté quelque chose mais sans grand succès,
Je vous remercie par avence de votre aide


Voilà mon code

'on selectionne dans la feuille agence la cellule'
Sheets("agence").Select

'Aller sur la cellule A65536 (soit la dernière de la colonne)'
Range("D65536").Select

'fin vers le haut'
Selection.End(xlUp).Select

'numero de la dernière ligne'
der = ActiveCell.Row - 1


For i = 2 To der + 1

Range("D" & i).Select

CB_agence.AddItem ActiveCell.Value

'si l'agence est déjà crée
If ActiveCell.Value = CB_agence.Text Then
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = ActiveCell.Value + 1
ActiveCell.Offset(0, -1).Select

Else

'sinon on ajoute une ligne
'Selection.EntireRow.Insert
ActiveCell.Offset(1, 0).EntireRow.Insert
ActiveCell.Offset(0, 0).Select
ActiveCell.Value = CB_agence.Text
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = ActiveCell.Value + 1
ActiveCell.Offset(0, -1).Select

End If

Next