macro pour transCo dates calendier 1904

Bonjour

A ceux qui souhaitent transformer les dates de leur=20
classeur (calendier 1904) en base calendier au 1/1/1900.

Sub transcodate1904()
'transformation des dates du calendier 2/1/1904 en base=20
1/1/1900
'Par R.Marceau MPFE
Finit =3D ActiveSheet.Name
Cadr =3D ActiveCell.Address
If ActiveWorkbook.Date1904 =3D False Then
MsgBox " abandon car outils/option/calcul/date1904 =3D est=20
non coch=E9e???"
Exit Sub
End If
For Each F In ActiveWorkbook.Worksheets
F.Activate
F.UsedRange.Select
For Each C In Selection
adr =3D C.Address
lim =3D Mid(ActiveSheet.UsedRange.Address, InStr
(ActiveSheet.UsedRange.Address, ":") + 1, 10)
limR =3D Range(lim).Row
limC =3D Range(lim).Column
If C.Row > limR And C.Column > limC Then GoTo endy
On Error Resume Next
If C.FormatConditions(1).Formula1 <> "=3DINDIRECT(ADRESSE
(LIGNE();COLONNE()))=3D""totozi""" Then
If IsDate(C) Then
Range(adr) =3D C + 1462
C.FormatConditions.Delete
C.FormatConditions.Add Type:=3DxlExpression,=20
Formula1:=3D _
"=3DINDIRECT(ADRESSE(LIGNE();COLONNE()))=3D""totozi"""
C.FormatConditions(1).Interior.ColorIndex =3D 3
End If
End If
Next C
Next F
endy:
ActiveWorkbook.Date1904 =3D False
Worksheets(Finit).Activate
Range(Cadr).Select
MsgBox "toutes les dates du classeur ont =E9t=E9 modifi=E9es=20
en base du 1/1/1900" & Chr(10) & _
"la coche dans :" & Chr(10)=20
& "outils/option/calcul/date1904 a =E9t=E9 enlev=E9e." & Chr
(10) & _
"Toutes les cellules modifi=E9es ont une mise en forme=20
conditionnelle de type" & Chr(10) & _
"=3DINDIRECT(ADRESSE(LIGNE();COLONNE()))=3D""totozi""" &=20
Chr(10) & _
"Elles ne seront plus modifiables par cette macro."
End Sub

RaMa