Re-,
Ok, mais le rapport avec ta question initiale?
Ce code te permet de doubler toutes tes dates dans la colonne 1 de ton fichier :
Sub doubler()
Dim DerLig As Long, I As Long
Application.ScreenUpdating = False
DerLig = Sheets("Feuil1").Range("A2").End(xlDown).Row
For I = DerLig To 3 Step -1
Cells(I, 1).Insert Shift:=xlDown
Next I
DerLig = (DerLig * 2) - 1
With Range("A1:A" & DerLig)
.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
.Value = .Value
End With
End Sub
Si c'est bien ça, bien sûr.....