Sub Macro4()
With Range("A1:B" & [C65000].End(xlUp).Row) 'de la cellule A1 à la cellule B(dernière ligne de C)
.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C" 'les cellules vides ont la formule =cellule du dessus
.Value = .Value 'on remplace les formules par les valeurs
End With
End Sub