Sub Bouton5_Cliquer()
Dim Valeur As Long
If InStr(1, Cells(4, 3).Value, "ATOLL" & Year(Date) & Month(Date) & Day(Date)) > 0 Then
Valeur = CLng(Right(Cells(4, 3), 3)) + 1
Cells(4, 3).Value = "ATOLL" & Year(Date) & Month(Date) & Day(Date) & Right("00" & Valeur, 3)
Else
Cells(4, 3).Value = "ATOLL" & Year(Date) & Month(Date) & Day(Date) & "000"
End If
End Sub