Problème de routine VBA

Bonjour j'ai un souci avec cette routine. Il y a un problème au niveau de la boucle (do... LOOP). Elle ne s'arrête pas. Merci de votre aide. Cordialement

Sub cotisations()

Do

If ActiveCell.Font.Bold = True Then ActiveCell.Offset(0, 1).Value = _

Range("B2")

Else

ActiveCell.Offset(0, 1).Value = _

Range("B1")

End If

ActiveCell.Offset(1, 0).Select

If ActiveCell.Value = " " Then Exit Do

Loop

End Sub

Bonjour,

remplace

If ActiveCell.Value = " " Then Exit Do

par

If IsEmpty(ActiveCell) Then Exit Do

Tu peux aussi remplacer Do par SUB dans cette instruction.

Amicalement

Dan