Problème avec macro de sélection

xlWhole

XlPart

Sub selection()
    Dim sel As Range, achercher As String
    achercher = InputBox("Quel Nom recherchez-vous ?")
    If achercher = "" Then Exit Sub
    Set c = ActiveSheet.Range("C" & Range("B1") & ":C" & Range("B2")).Find(achercher, LookIn:=xlValues, lookat:=xlPart)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            If Not sel Is Nothing Then
                Set sel = Application.Union(sel, Rows(c.Row))
            Else
              Set sel = Rows(c.Row)
            End If
            Set c = Range("C" & Range("B1") & ":C" & Range("B2")).FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
    If Not sel Is Nothing Then sel.Select
End Sub