Public Sub eyr()
Dim Cel As Range
For r = 1 To 9
l = 0
nom = Cells(398 + n, 2)
retour:
Range(nom).Cells(1 + l, 1).Select
If selection <> "" Then 'si il y a une valeur alors cellule active + 1 pour dscendre d'une ligne
l = l + 1
GoTo retour:
End If
n = n + 1
Next r
End Sub