Sub essaiMEF_AP07Macro()
Dim Rng As Range, T(), Z As String, L As Long
Set Rng = Range([H2], Cells(&H100000, "I").End(xlUp))
T = Rng.Value
For L = 1 To UBound(T, 1)
If VarType(T(L, 1)) = vbString Then
Z = Replace(T(L, 1), ".", "/")
If IsDate(Z) Then T(L, 1) = CDate(Z)
End If
If VarType(T(L, 2)) = vbString Then
Z = Replace(T(L, 2), ".", "")
If IsNumeric(Z) Then T(L, 2) = CCur(Z)
If Z = "" Then T(L, 2) = Empty
End If: Next L
Rng.Value = T
Rng.Columns(2).NumberFormat = "$#,##0_);($#,##0)"
End Sub