Comment copier une cellule située au-dessus

Bonjour,
Dans une liste , lorsque la cellule ne contient rien je voudrais copier la valeur de la cellule située juste au-dessus.
Merci pour votre aide

1 réponse

  1. Contributeur
    Bonjour,

    Range("A1").End(xlDown).Offset(1, 0).Select 'ligne vide colonne A
    ActiveCell.Offset(-1, 0).Select 'selection cellule au dessus
    Selection.Copy 'copie selection
    Range("C8").Select
    ActiveSheet.Paste

    0