Code à rectifier SVP

Bonjour,
j'ai ecrit un code en VBA mais et ça marche au niveau du parcour de la plage des cellules mais, le probleme c'est que y a pas d'affectation dans les cellules cibles,
donc merci pour votre aide ....
voici mon code (pas tres long) :

Sub Bouton1_QuandClic()
Dim code, debit, credit As String
worksheets("A").Select
Range("a2").Select
While ActiveCell.Value <> ""
code = ActiveCell.Value
debit = Val(ActiveCell.Offset(0, 2))
credit = Val(ActiveCell.Offset(1, 3))
Worksheets("BAL-N").Select
Range("b3").Select
While ActiveCell.Value <> Empty 'ActiveCell.Value <> code
If ActiveCell.Value = code Then
If debit <> 0 Then
ActiveCell.Offset(0, 2).Value = Val(debit)
Else
ActiveCell.Offset(0, 3).Value = Val(credit)
End If
End If
ActiveCell.Offset(1, 0).Select
Wend
Sheets("A").Select
ActiveCell.Offset(1, 0).Select
Wend
End Sub

merci