Remplir un nombre de celulle

Bonjour,

Bonjour,
Excel ( 2007 ) trouver la première cellule vide d'une ligne et remplir un nombre de cellules a droite avec un "b".
exemple une personne me donne 5 € je met dans une feuile (e6) 5 je voudrais mettre dans une autre feuile sur la ligne avec le nom 5 "b" a droite de la derriere cellule non vide
merci d'avance en 2013 j'ai reçu un message de Gyrus mais dans le nouveau fichier que j' ai crée il ne marche pas ?
je joint le fichier avant et après ( j' ai copyer coler le code programme )

Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range
If Target.Count > 1 Then Exit Sub
If Target.Address = "$E$6" Then
With Worksheets("Betaalt")
Set C = .Columns(2).Find(Target.Offset(-3), , xlValues, xlWhole)
If Not C Is Nothing Then
.Cells(C.Row, Columns.Count).End(xlToLeft).Offset(, 1).Resize(, Target.Value).Value = "B"
MsgBox "Report effectué."
Application.EnableEvents = False
Target.Select
Target.ClearContents
Application.EnableEvents = True
End If
End With
End If
End Sub

https://www.cjoint.com/c/HFtnwfDnCua
https://www.cjoint.com/c/HFtnxCJSlTa