XL 2010 Affichage des cellules en passant par un combobox

Private Sub UserForm_Initialize()
For i = 1 To 52 'je présume qu'il s'agit des semaines
    Me.ComboBox1.AddItem i
Next i
End Sub

Private Sub ComboBox1_Change()
With ActiveSheet.Range("A:A")
    Set c = .Find(ComboBox1.Value, lookat:=xlWhole)
    If Not c Is Nothing Then
        c.Select
    End If
End With
End Sub

Dim E As Worksheet 'déclare la variable E (onglet Essai)

Private Sub UserForm_Initialize() 'à l'initialisation de l'UserForm
Dim I As Integer 'déclare la variable I (incrément)

Set E = Worksheets("ESSAI") 'définit l'onglet E
For I = 3 To Cells(Application.Rows.Count, 1).End(xlUp).Row 'boucle des lignes 3 à la dernière ligne éditée de la colonne 1 (=A)
    If Cells(I, 1).Value <> "" Then Me.ComboBox1.AddItem Cells(I, 1).Value 'si la cellule n'est pas vide ajoute la valeur de la cellukle à la ComboBox1
Next I 'prochaine ligne de la boucle
End Sub
Private Sub CommandButton1_Click() 'bouton "VALIDER"
Dim R As Range 'déclare la variable R (Recherche)

Set R = E.Columns(1).Find(Me.ComboBox1.Value, , xlValues, xlWhole) 'définit la recherche R (recherche la valeur de la ComboBox1 dans la colonne 1 (=A) de l'onglet E
If Not R Is Nothing Then R.Select 'si il existe au moins une occurrence trouvée, sélectionne la première occurrence trouvée
End Sub