bonjour,

j'ai un souci avec cette routine.la boucle tourne sans cesse.
merci de votre aide
cordialement


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
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