Mettre des slashs automatiquement dans une date

Private test As Boolean 'déclare la variable test

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cel As Range 'déclare la variable cel (CELlule)
Dim td As String 'déclare la variable td (Texte de la Date)
Dim j As String 'déclare la variable j (Jour)
Dim m As String 'déclare la variable m (Mois)
Dim a As String 'déclare la variable a (Année)

If test = True Then Exit Sub 'si test est vraie, sort de la procédure
If Target.Column <> 1 Then Exit Sub 'si le changement a lieu ailleurs que dans la colonne 1 (=A), sort de la procédure (à adapter)
'permet d'effacer plusieurs cellules sans bug
For Each cel In Target 'boucle sur toutes les cellules de la sélection
    If cel.Value = "" Then Exit Sub 'si la cellule est effacée, sort de la procédure
Next cel 'prochaine cellule de la boucle
test = True 'définit la variable test
td = Format(CStr(Target.Value), "000000") 'définit la variable td
j = Left(td, 2): m = Mid(td, 3, 2): a = Right(td, 2) 'définit les variables j,m et a
Target.Value = CDate(j & "/" & m & "/" & a) 'modifie la cellule éditée
Target.NumberFormat = "dd/mm/yy" 'applique un format à la cellule éditée
test = False 'redéfinit la variable test
End Sub

Private test As Boolean 'déclare la variable test

Private Sub Worksheet_Change(ByVal Target As Range)
If test = True Then Exit Sub 'si test est vraie, sort de la procédure
If Target.Column <> 1 Then Exit Sub 'si le changement a lieu ailleurs que dans la colonne 1 (=A), sort de la procédure (à adapter)
'permet d'effacer plusieurs cellules sans bug
For Each cel In Target 'boucle sur toutes les cellules de la sélection
    If cel.Value = "" Then Exit Sub 'si la cellule est effacée, sort de la procédure
Next cel 'prochaine cellule de la boucle
test = True 'définit la variable test
Target.Value = DateSerial(Target.Value Mod 100 + 2000, (Target.Value \ 100) Mod 100, Target.Value \ 10000)
test = False 'redéfinit la variable test
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim V As Long: V = Target.Value
'Ajouter les tests sur Target.Column etc. Exit Sub
Application.EnableEvents = False
Target.Value = DateSerial(V Mod 100 + 2000, (V \ 100) Mod 100, V \ 10000)
Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 And Target.Column = 1 Then 'colonne A
     Application.EnableEvents = False
   If Len(Target.Value) = 6 Then
            Target.Value = DateSerial(Right$(Target.Value, 2), Mid$(Target.Value, 3, 2), Left$(Target.Value, 2))
            Target.NumberFormat = "dd/mm/yy"
        End If
Application.EnableEvents =true
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
'MJ
'Dim JMA As Date
On Error GoTo GestErr
'MsgBox ActiveCell.Offset(-1, 0)
an = Format(Right(ActiveCell.Offset(-1, 0), 2), "00")
Mois = Format(Mid(ActiveCell.Offset(-1, 0), 3, 2), "00")
jour = Format(Left(ActiveCell.Offset(-1, 0), 2), "00")
JMA = jour & "/" & Mois & "/" & an
If Mois <= 12 Then ActiveCell.Offset(-1, 1) = CDate(JMA) Else GoTo GestErr
Exit Sub
GestErr:
For i = 1 To 10: Beep: Next: MsgBox " veuillez entrer une date valide (jjmm)": ActiveCell.Offset(-1, 0).Select: End
End Sub