Copier cellule via Macro

Sub DerniereValeur()
'
Dim Cell As Range
'
  Application.ScreenUpdating = False
  For Each Cell In Range('A1:A' & Range('A65536').End(xlUp).Row)
    If Not IsEmpty(Cell) And IsEmpty(Cell.Offset(0, 1)) Then
      With Cell.Offset(0, 1)
        .FormulaR1C1 = '=LOOKUP(9^9,R1C2:R[-1]C2)'
        .Formula = .Value
      End With
    End If
  Next Cell
  Application.ScreenUpdating = True
End Sub

Cliquez pour agrandir...