Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
With UserForm1
.Posit Target, 1, 0.9
.Show 0
End With
End Sub
sub test()
ladate = calendrierperso ' la deja ca marche pas mais bon continuons
msgbox datediff("d",ladate,date)'ici cette ligne est exécutée avant même que le userform soit entièrement affiché donc walouh!!
end sub