Trouver 1ere cellule vide et avec formule

Bonjour,

Le code suivant me donne la dernière cellule d'une ligne contenant une formule. Je n'arrive pas à le modifier pour qu'il me retourne la 1ere cellule vide même s'il y a une formule ...

Sub Truc()
Dim Ligne As Long, Colonne As Integer
  Ligne = 1
  Colonne = Cells(Ligne, 2).End(xlToRight).Column
End Sub

Merci pour votre aide ...

Bonjour

Une cellule qui contient une formule n'est pas vide...

Exact, je souhaiterai donc que la macro trouve la 1ere cellule "" ...

RE

Il faut une boucle qui teste que la cellule est non vide mais contient une chaîne vide

For i = 1 To Cells(Ligne, Cells.Columns.Count).End(xlToLeft).Column
    If Not IsEmpty(Cells(Ligne, i)) And Cells(Ligne, i) = "" Then Colonne=i
Next i

Merci