=RECHERCHE(2;1/($A$1:$A$54<>"");$A$1:$A$54)
=INDEX($A$1:$A$54;EQUIV(VRAI;INDEX(($A$1:$A$54<>0);0);0))
LigneNonVide=WorkSheets("Feuil1").Cells(55,1).End(xlUp).Row
Merci c'est ce que je voulaisBonsoir KTM
peut être avec :
sans fichier pas évidentVB:LigneNonVide=WorkSheets("Feuil1").Cells(55,1).End(xlUp).Row
Edit Bonsoir JM
jean marie
Votre proposition est bonne et est prise en compte et pourra me servir plus tard mais je devais utiliser ce code dans une macro.Re
KTM
Merci d'avoir superbement ignoré le message#2
PS: Heureusement, ChTi160 m'a vu passé dans le fil
(Ce qui minore la douleur qui irradie encore en dedans de moi)
Function DerCellNonVide(xplage As Range) As Range
Dim i&, j&
On Error Resume Next
i = Application.Match(999 ^ 9, xplage.Columns(1), 1)
j = Application.Match(String(255, "z"), xplage.Columns(1), 1)
On Error GoTo 0
If i + j <> 0 Then Set DerCellNonVide = xplage.Columns(1).Cells(IIf(i > j, i, j), 1)
End Function