Declare Function GetAsyncKeyState Lib "user32" _
(ByVal vKey As Integer) As Integer
Sub InsertionDate()
Dim Cellule As Range, CtrlApp As Boolean 'Déclaration de Cellule
CtrlApp = (GetAsyncKeyState(17) = -32767)
For Each Cellule In Application.Intersect(Selection, Range("I1:I65536"))
If CtrlApp Then 'Détection touche "CTRL" enfoncée
Cellule.Value = Format(Now + 92, "dd/mm/yyyy") 'alors Insertion Date du jour + 90 jours
Else 'Sinon
Cellule.Value = Format(Now, "dd/mm/yyyy") 'Insertion Date du jour
End If
Next
End Sub