Salut après modification de ton code celà donne bien le résultat escompté.
Merci pour la piste.
Sub Incre()
Dim I, Num
For I = 1 To 200
If I < 10 Then
Num = '06/01/' & '00' & I
ElseIf I < 100 Then
Num = '06/01/' & '0' & I
Else
Num = '06/01/' & I
End If
Cells(I, 1).Value = Num
Next
End Sub