Sub Macro1()
Dim li As Integer 'décalre la variable li
li = ActiveCell.Row 'définit la variable li
If Cells(li, 1).Value = '' Then
Cells(li, 1).Select
Else
'sélectionne la première cellule vide rencontrée dans la ligne
Cells(li, 1).End(xlToRight).Offset(0, 1).Select
End If
End Sub