Autofill a resize range

[Ramo964516]

i'm working on a macro, and i use `resize` to select a range. Wich range i use in `autofill`. the original adress of `strPlageNumSemaines` is `AB5`. I don't know why it's still has `AB5` address even after the resize. Here is my code:

Dim strDernierJourDuMois As String
     Dim strPlageNumSemaines As String
     count = 0


    strPlageNumSemaines = Range(strDernierJourDuMois).Offset(0, 1).Address
    strPlageNumSemaines = Range(strPlageNumSemaines).Resize(1, count)
 
 
    If dbNbSemaines = 4 Then
     count = 4
    ElseIf dbNbSemaines = 5 Then
     count = 5
    End If
  
    Range("E5:AE5").Find(dtDernierJourDuMois, Range("E5")).Offset(0, 1).Select
    Selection.AutoFill Destination:=Range(strPlageNumSemaines),Type:=xlFillDefault

[Bob Phillips]

Try this

Dim strDernierJourDuMois As String
Dim strPlageNumSemaines As Range

    Count = 0
 
    Set strPlageNumSemaines = Range(strDernierJourDuMois).Offset(0, 1).Resize(1, Count)
     
    If dbNbSemaines = 4 Then
        Count = 4
    ElseIf dbNbSemaines = 5 Then
        Count = 5
    End If
     
    Range("E5:AE5").Find(dtDernierJourDuMois, Range("E5")).Offset(0, 1).Select
    Selection.AutoFill Destination:=strPlageNumSemaines, Type:=xlFillDefault