XL 2016 conversion des fichiers

Bonjour le forum.
Bonjour a tous.
j'étais sur office 2010 je remonte à ofice 2016. j'ai les commandes VBA de mes fichiers qui ne sont pas a jour. par exemple

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [C3]) Is Nothing Then
Load fm_CalendrierCellule
If IsDate(Target) Then fm_CalendrierCellule.Tag = Target Else fm_CalendrierCellule.Tag = Date
fm_CalendrierCellule.Show: Cancel = True
End If
End Sub
bref, je voudrai un code qui me permettrai d'adapter mes commandes au nouvel environnement.