Code VBA : Problème avec une date

Bonjour,

J'ai créé le code ci-dessous afin de transformer une date au format Standard en format Date.

Sub Transformation_dates()

Dim Cellule As Range, DerLig As Integer
Dim Jour As Integer, Mois As String, MoisBis As Integer, Année As Integer
Dim FEV As String, APR As String, MAY As String, AUG As String, DEC As String

Application.ScreenUpdating = False

DerLig = Range("L65536").End(xlUp).Row

    For Each Cellule In Range("I4:L" & DerLig)
        If Not IsDate(Cellule) Then
            Jour = Left(Cellule, 2)
            Mois = Mid(Cellule, 4, 3)
            Année = Mid(Cellule, 8, 4)

            Select Case Mois
                Case "FEV"
                MoisBis = 2
                Case "APR"
                MoisBis = 4
                Case "MAY"
                MoisBis = 5
                Case "AUG"
                MoisBis = 8
                Case "DEC"
                MoisBis = 12
            End Select

            Cellule.FormulaR1C1 = "=DATE(Année, MoisBis, Jour)"

        End If
    Next

Range("I4:L" & DerLig).NumberFormat = "m/d/yyyy"

End Sub

Mais - bien que toutes les variables nécessaires soient à disposition - la formule désirée n'est pas correctement inscrite dans les cellules concernées.

Pouvez-vous m'indiquer ce que je dois modifier à la ligne ci-dessous afin que les variables soient inscrites dans les formules à la place de leurs textes ?

Cellule.FormulaR1C1 = "=DATE(Année, MoisBis, Jour)"

A vous relire.

Bonsoir

Dans ta formule comme tu utilises des variables il faut les dissocier de la partie formule

Essayes

Cellule.FormulaR1C1 = "=DATE(" & Année & "," & MoisBis & "," & Jour & ")"

Bonne soirée

Salut Banzai,

Merci beaucoup pour ton aide. C'est exactement ça

Bonne soirée.