VBA - Etirer une cellule jusqu'à la dernière cellule non vide

Bonjour,

Novice en VBA je fais appel à votre aide.

Ma problématique est la suivante :

Dans ma colonne E, je souhaiterais étirer la cellule E2 jusqu'à la dernière cellule non vide E15. Puis, Me positionner sur E14 et l'étirer jusqu'à E16. Et ainsi de suite jusqu'à ce qu'à rencontrer la dernière cellule du tableau qui contient le mot FIN. A ce moment là il faut s'arrêter.

Vous trouverez en PJ à quoi ressemble mon fichier (j'ai oublié d'ajouter le mot FIN en bas de la colonne E). Mon fichier de base fait +25000 lignes, c'est pourquoi je souhaiterais utiliser une macro.

Ma problématique est que je ne veux pas nommer mes cellules en dur dans le code car elles varient tout le temps et je ne sais pas vraiment comment faire pour boucler ....

Pourriez-vous m'aider s'il vous plait ?

Merci d'avance pour vos réponses et votre aide !

Bonjour,

Oui c'est possible en en rajoutant une colonne supplémentaire, puis en mettant cette formule =SI(D2="";E1;D2) que tu étires jusqu'à ou tu veux sans te posé de question

Voir fichier joint

Slts

Merci pour ton retour.

Je dois malheureusement utiliser un macro car le fichier que j'utile est construit grâce à une macro et cela évitera beaucoup de manip manuelles par la suite. Mon fichier source fait 25 000 ligne :/

Re

A tester ce code vba

Sub Remplir2()
Dim tablo As Variant, i As Byte, derl As Long
    Application.ScreenUpdating = False
    tablo = [{"e"}]
    derl = Cells.SpecialCells(11).Row
    With ActiveSheet.UsedRange
        .Value = Evaluate("if(" & .Address & _
                          "<>"""",trim(clean(" & .Address & ")),"""")")
    End With
    On Error Resume Next
    For i = 1 To UBound(tablo)
        With Range(tablo(i) & 2 & ":" & tablo(i) & derl)
            .SpecialCells(4).Formula = "=R[-1]C"
            .Value = .Value
        End With
    Next i
    On Error GoTo 0
    Application.ScreenUpdating = True
End Sub

Slts