Public Function convdate(cellule As Range)
Dim tablo(1 To 3)
Dim i As Byte
tablo(1) = Day(cellule)
tablo(2) = Month(cellule)
tablo(3) = Right(Year(cellule), 2)
For i = 1 To 3
Select Case tablo(i)
Case Is < 27: tablo(i) = Chr(tablo(i) + 64)
Case Else: tablo(i) = tablo(i) - 26
End Select
Next i
convdate = Join(tablo, "")
End Function