Bonsoir Luc, le Forum
Si tes lignes sont toutes remplies et si elles commencent bien en Colonne "A" alors un code comme celui ci devrait te satisfaire :
Sub FirstLigneVideVersLeBas()
Dim Ligne As Integer
Ligne = ActiveSheet.Range("A1").End(xlDown).Row + 1
Range("A" & Ligne).Activate
End Sub
Maintenant si tu as des blancs dans la colonne "A" alors il vaut mieux partir du bas pour trouver la "vraie" première ligne vide :
Sub FirstLigneVideVersLeHaut()
Dim Ligne As Integer
Ligne = ActiveSheet.Range("A65536").End(xlUp).Row + 1
Range("A" & Ligne).Activate
End Sub
Bonne Programmation et bonne soirée
@+Thierry