Utiliser Remplacer avec une macro

Bonjour,

Je vais devenir fou, et j'espère que vous allez pouvoir m'aider :)

Je cherche à remplacer des dates qui ont un format de cellule par défaut Type "*14/03/2001" en utilisant une macro. Les dates sont toutes dans une colonne jour par jour

01/01/2002
02/01/2002
...
31/12/2002

Je voudrais remplacer toutes les dates de novembre à mars par "hiver" et avril à octobre par "été". Si je le fais manuellement, je n'ai qu'à lancer la fonction rechercher et remplacer, écrire dans recherche : */01/* et dans remplacer : hiver
Le faire douze fois pour chaque moi et le tour et joué, il y a peut être plus simple avec une boucle mais ce n'est pas trop fatiguant... par contre, ça se complique sérieusement lorsque je cherche à faire la manipulation à l'aide d'une macro !

En effet, lorsque je lance une macro, que je fais la manipulation, et que je test ma macro : RIEN ne se passe.

        
Sub Test()

Sheets("new").Select
    Cells.Replace What:="***/01/***", Replacement:="hiver", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.Replace What:="***/02/***", Replacement:="hiver", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.Replace What:="***/03/***", Replacement:="hiver", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

' ETC pour l'ensemble de l'année

    Sheets("Facture Gaz").Select
    Range("D13").Select
    ActiveCell.FormulaR1C1 = _
        "=SUMIF(new!R[-10]C[-3]:R[354]C[-3],""été"",new!R[-10]C[25]:R[355]C[25])"
    ActiveCell.Offset(1, 0).Range("A1").Select
    Range("D14").Select
    ActiveCell.FormulaR1C1 = _
        "=SUMIF(new!R[-11]C[-3]:R[353]C[-3],""hiver"",new!R[-11]C[25]:R[354]C[25])"
    ActiveCell.Offset(1, 0).Range("A1").Select
        
End Sub

J'ai donc essayé de changer préalablement le format de la date, j'ai essayé tout un tas de commande pré conçues par d'autre mais je n'ai pas réussi à assembler quelque chose qui fonctionne, par exemple avec ce bout de code

Sub test()

Sheets("new").Columns(1).Replace.Cell "***/2/***", "hiver"
    
End Sub

Bref... je me dis que peut être le plus simple est de faire une boucle, mais je ne sais pas trop comment m'y prendre. Alors si quelqu'un peut m'envoyer sur une piste ou m'aider à régler le problème par le bout que j'ai commencé,

Merci beaucoup !