Do While (ActiveCell.Value <> "-") 'faire tant que la cellule active est différente de "-"
If (ActiveCell.Value <> "-") Then 'si la cellule est <>"-"
rowc = rowc + 1 'on incrémente
ActiveCell.Offset(1, 0).Select 'on sélectionne la cellule de la ligne en dessous
Else 'si ="-"
Exit Do 'on quitte la boucle
End If
Loop