Copie de cellule jusqu'a prochaine cellule non vide

Bonjour à tous,

Je travail actuellement sur un fichier et je recopie mes données a l'aide de la souris. c'est quelque peu tres long... Env 90 000 lignes ^^

j'aimerai que pour les cellule A, B, et C , la cellule soit recopiée à l'identique jusqu'à la prochaine cellule non vide, et ainsi de suite jusqu'à la fin.

Vous comprendrez vite mon besoin avec le fichier fourni.

Je vous remercie d'avance si vous avez une idée de macro à proposer.

Restant à disposition,

Cordialement,

Bonsoir, manoss76

Je ne comprends rien de plus avec le fichier

Vous copiez Quoi ? et ou ?

a partir de quelles lignes et dans quelles feuilles ?

Quelques exemples de lignes à copier serait les bienvenus.

Amicalement

Pierrot

Bonsoir à tous,

Comme ça, non

Sub remplir()
    With Cells(1).CurrentRegion
        On Error Resume Next
        .SpecialCells(4).Formula = "=r[-1]c"
        On Error GoTo 0
        '.Value = .Value
    End With
End Sub

Sinon celle-ci, si ta feuille contient plusieurs zones.

Sub remplir1()
    With Sheets(1).UsedRange
        On Error Resume Next
        .SpecialCells(4).Interior.ColorIndex = 44 'pour visualiser
        .SpecialCells(4).Formula = "=r[-1]c"
        On Error GoTo 0
        '.Value = .Value 'supprime la formule
   End With
End Sub

klin89

Bonjour,

Merci Klin89, c'est exactement cela qu'il me fallait !

Comment ça se traduit => .SpecialCells(4).Formula = "=r[-1]c" ?

Merci encore,

Cordialement,

M@noss