Bonjour tlm

j'ai un probleme lors de l'execution du code cidessous,il ne reconnait pas les valeurs a rechercher et les valeurs a remplacer.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub Actualisation()

Windows("Ref_File.xls").Activate
    
    Rday = Worksheets("Ref").Cells(1, 1).Value
    RMonth = Worksheets("Ref").Cells(1, 2).Value
    RYear = Worksheets("Ref").Cells(1, 3).Value

    Rday2 = Worksheets("Ref").Cells(2, 1).Value
    RMonth2 = Worksheets("Ref").Cells(2, 2).Value
    RYear2 = Worksheets("Ref").Cells(2, 3).Value

mm = rday & " - " & RMonth & " - " & RYear
pp = rday2 & " - " & RMonth2 & " - " & RYear2

     Windows("AAA.xls").Activate
     Range("A3").Select
     Selection.End(xlDown).Select
    
     T = ActiveCell.Row
     Rows(T & ":" & T + 1).Select
     Selection.FillDown
     Rows(T + 1 & ":" & T + 1).Select

    Selection.Replace What:=pp, Replacement:=mm, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False    
End Sub
Merci de votre aide precieuse