Sub rvides()
[COLOR=Green]'Déclarations[/COLOR]
Dim p As Range, dl&
[COLOR=Green]'definit la dernière ligne[/COLOR]
dl = [B65536].End(xlUp).Row
[COLOR=Green]'définit la plage de cellules à traiter[/COLOR]
Set p = [A1].Resize(dl)
[COLOR=Green]'remplissage des cellules vides[/COLOR]
With p
.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
.Value = .Value
End With
Set p = Nothing
End Sub