Encore un Problème de ComboBox...^^

Private Sub CommandButton1_Click()
Dim i As Byte

For i = 3 To 7
    Sheets("feuil2").Range(Array("b4", "c8", "f12", "c17", "h6")(i - 3)) = Cells(ComboBox1.ListIndex + 6, i)
Next i
End Sub

Private Sub CommandButton1_Click()
Dim c As Range
Dim ligne As Integer

'recherche dans la colonne c la valeur de la combobox1
'et stocke dans la variable c son "emplacement"
Set c = Range("c6:c" & Range("c65536").End(xlUp).Row).Find(ComboBox1)

'si c est vide, alors
If c Is Nothing Then
    'on envoi un message et on sort de la macro
    MsgBox "donnée non trouvée.": Exit Sub
End If

'stocke dans la variable ligne le numéro de ligne de l'emplacement
ligne = c.Row

'renvoi les données
With Sheets("feuil2")
    .Range("b4") = Cells(ligne, 3)
    .Range("c8") = Cells(ligne, 4)
    .Range("f12") = Cells(ligne, 5)
    .Range("c17") = Cells(ligne, 6)
    .Range("h6") = Cells(ligne, 7)
End With
End Sub