Private Sub CommandButton1_Click()
Dim PremLig As Double
PremLig = IIf([A65000].End(xlUp).Row + 1 < 6, 6, [A65000].End(xlUp).Row + 1)
If IsDate([A4]) Then
Range(Cells(PremLig, 1), Cells([C65000].End(xlUp).Row, 1)).Value = Format([A4], "m/d/yyyy")
End If
End Sub