Probleme affectation worksheet

Bonjour,

Pour m'éviter les doublons et les prises de place incessante, j'ai réaliser une affectation de variable tel que :

Dim wb As Workbook
Dim sh As Worksheet
Dim i As Integer
Dim j As Integer
Dim annee As Date
Dim moisnaiss As Integer

Set wb = ThisWorkbook
Set sh = Sheets("Mois_1")
i = 4
j = 1

Cependant, lorsque j'éxecute le code si dessous, j'obtient une erreur " Propriété ou méthode non gérer par cet objet " sur le début du while, j'en conclu donc que c'est mon affectation de feuille qui ne fonctionne pas ( ayant fait des test sur le wb ), si quelqu'un pouvais m'indiquez mon erreur que je puisse la comprendre, merci d'avance

While wb.sh.Range("E" & i) <> ""
    If wb.sh.Range("B" & i) <> "" Then
    
        annee = wb.sh.Range("B" & i).Value
        anneenaiss = Year(CDate(annee))
        moisnaiss = Month(CDate(annee))
        'MsgBox (anneenaiss)
        If anneefichier - anneenaiss <= 6 Then
            If anneenaiss = 2009 Then
                If moisnaiss <= Month(Now()) Then
                    wb.sh.Range("A" & j).Value = wb.sh.Range("C" & i + 1).Value
                    j = j + 1
                Else
                    wb.sh.Range("B" & j).Value = wb.sh.Range("C" & i + 1).Value
                    j = j + 1
                End If
            Else
                wb.sh.Range("B" & j).Value = wb.sh.Range("C" & i + 1).Value
                j = j + 1
            End If
        Else
            wb.sh.Range("A" & j).Value = wb.sh.Range("C" & i + 1).Value
            j = j + 1
        
        End If
        
    End If
    i = i + 1

Wend

End Sub