Première cellule non vide

Bonjour à tous,

Je cherche a me positionner sur le première cellule vide d'une colonne, en partant du début (il peut y avoir des cellules non vides après celle-là).

Mon code plante sur le Range. Problème de syntaxe ?

    Dim Colonne As String
    Dim Lig As Long
    Lig = 1
    Do While Not IsEmpty(Range(Colonne & Lig))
    Lig = Lig + 1
    Loop
    MsgBox("La première cellule vide est sur la ligne ligne  : " & Lig)

Merci pour votre aide.

Bonjour

Oui range attend une forme textuelle comme "A1"

Cells(lig, colonne) est possible à condition de définir colonne car sans définition la colonne =0

Mais plutôt qu'une boucle, utilise

Cells(1, colonne).End(xlDown).Offset(1, 0).Select

Bonjour,

Un exemple :

Public Sub XXX()
Dim lCol As Long, Cell As Range
lCol = 1
If Not IsEmpty(Cells(lCol)) Then Set Cell = Cells(lCol).End(xlDown).Offset(1)
MsgBox ("La premi?re cellule vide est sur la ligne : " & Cell.Row)
End Sub

Merci Jean Eric.

Nickel.

Bonne soirée.