Remplacer Donnees Cellules

Bonjour a tous

J'aurais besoin de votre aide afin d'ajuster mon fichier ci joint afin de l'incorporer a ma macro

alors sur la colonnes C j'ai les donnees suivant "3280H" etc... et obtenir le resultat "TR3280" c'est a dire ajouter TR au debut de chaque cellules et supprimer le H

et sur la colonnes A j'ai la date au format "23-févr-17" et obtenir celui ci "23feb17" et cela pour tout les mois:

Jan-Feb-Mar-Avr-May-Jun-Jul-Aug-Sep-Oct-Nov-Dec

et tout cela en VBA svp

Merci de votre aide

Bonjour,

Sub RTE()
    Dim c As Range
    Application.ScreenUpdating = False
    For Each c In Worksheets(1).Range("C2:C80")
        c = "TR" & Val(c)
    Next c
End Sub

Format date : modifier format de cellule.

Merci