Bonjour,
LigneFin = Sheets(OngletName).Range("A" & Rows.Count).End(XlUp).Row
avec la dernière ligne du tableau , tu peux maintenant faire une boucle sur toutes les lignes ,
For n = 1 To LigneFin
Next n
et tester si la cellules est vide
If Cells(n,1).value = "" Then
End If
ou
If Range("A" & n).Value = "" Then
End If
si elle est vide tu ajoute dans une liste
USF.ListBox.AddItem "A" & n
@+JP