Bonjour reve24,
Tu ne dis pas ce qui ne fonctionne pas, alors peut-être en corrigeant comme ceci:
Sub remplir2()
Dim cel As Range, DernLigne As Long
DernLigne = Range("H" & Rows.Count).End(xlUp).Row
For Each cel In Sheets("Feuil1").Range("H2:H" & DernLigne)
If cel.Value = "" Then cel.Value = "01/01/1900"
Next cel
End Sub
Cordialement.