Sub Bouton15_Clic()
Dim j As Long
With Sheets("SansRef")
Application.ScreenUpdating = False
For j = [B65000].End(xlUp).Row To 57 ' actualisation de la date des cellules en A depuis la 1ere ligne libre en B à la fin du tableau
If Left(Cells(j, 2), 2) = "" Then Cells(j, 1).Value = Date
Next j
End With
End Sub