Parcourir 2 colonnes et selctionner opérations

Bonjour

Je viens vers vous m'aider à terminer ma macro que je réalise actuellement.

je dispose d'une colonne A avec les numéro d'opérations , d'une colonne B avec la date 1 et d'une colonne C avec la date 2.

Je souhaite qu'a chaque fois que je parcours la colonne B (date 1) , je dois ajouter - 1 (tiret de 6 et 1) et si je parcours la colonne C je dois ajouter - 2 (tiret de 6 et 2).

Mon probleme est que je recontre des opérations en phase 1 et en phase 2

parexemple je peux avoir une opération qui a une date 1 et une date 2

donc ma macro doit me le faire.

exemple 4581-1

4581-2

j'ai fais la tache manuellement dans le fichier.

merci

Sub toto()
With Sheets("Feuil1")
k = 1
For i = 2 To .Range("A" & .Rows.Count).End(xlUp).Row
If .Range("B" & i) <> "" Then
k = k + 1
.Range("F" & k) = .Range("A" & i) & "-1"
End If
Next i

For i = 2 To .Range("A" & .Rows.Count).End(xlUp).Row
If .Range("C" & i) <> "" Then
k = k + 1
.Range("F" & k) = .Range("A" & i) & "-2"
End If
Next i
End With

End Sub