Sub HeureActuel()
Dim ColAlpha As String
ColAlpha = Array("E", "M")((MsgBox("Argent fictif?", vbQuestion + vbYesNo) = vbNo) * -1)
If Range(ColAlpha & 9) = "" Then
Range(ColAlpha & 9) = Now
Else
Range(ColAlpha & Range(ColAlpha & Rows.Count).End(xlUp).Row + 1) = Now
End If
End Sub