Probleme avec un datagridview

Bonjour,
j'essaie de prendre une donne de la metrre dans une variable Mot_Rechercher
puis de comparer ce mot avec les donnees se trouvant dans un datagridview1 puis de stocker la ligne ayant rapport avec mon Mot_Rechercher dans un datagridview2

mon programme sarrete apres a la ligne

If Mot_Rechercher = Me.DataGridView1.Rows(i).Cells(Colonne).Value Then

en me donnant cette erreur

Index was out of range. Must be non-negative and less than the size of the collection.
Parameter name: index

Public Class Faire_une_recherche


    Private Sub Faire_une_recherche_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'EH_BASE_DE_DONNEESDataSet.Table1' table. You can move, or remove it, as needed.
        Me.Table1TableAdapter.Fill(Me.EH_BASE_DE_DONNEESDataSet.Table1)

    End Sub

    Private Sub BT_Fermer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_Fermer.Click
        Everything_Here.Show()
        Me.Close()
    End Sub

    Private Sub BT_Rechercher_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_Rechercher.Click
        Dim Mot_Rechercher As String = ""
        Dim Sec_Rechercher As String = ""
        Dim Donne As String = ""
        Dim Nbr_Employe As Integer = 0
        Dim Colonne As Integer = 0
        Dim Nbr_Resultat As Integer = 0

        DataGridView2.Rows.Clear()
        Me.LB_Resultat.Text = ""

        Nbr_Employe = Me.EH_BASE_DE_DONNEESDataSet.Table1.Rows.Count
        Mot_Rechercher = Me.TB_Mot_Rechercher.Text
        Sec_Rechercher = Me.CB_Sec_Rechercher.Text

        If Sec_Rechercher = "ID Employé" Then
            Colonne = 0
        ElseIf Sec_Rechercher = "Nom" Then
            Colonne = 1
        ElseIf Sec_Rechercher = "Prénom" Then
            Colonne = 2
        ElseIf Sec_Rechercher = "CIN" Then
            Colonne = 3
        ElseIf Sec_Rechercher = "Section" Then
            Colonne = 5
        ElseIf Sec_Rechercher = "Salaire" Then
            Colonne = 6
        End If

        For i As Integer = 0 To Nbr_Employe
            'Donne = Me.DataGridView1.Rows(i).Cells(Colonne).Value
            'Donne = Me.DataGridView1.Item(i, Colonne).Value.text

            If Mot_Rechercher = Me.DataGridView1.Rows(i).Cells(Colonne).Value Then
                Me.DataGridView2.Rows(Nbr_Resultat).Cells(0).Value = Me.DataGridView1.Rows(i).Cells(0).Value
                Me.DataGridView2.Rows(Nbr_Resultat).Cells(1).Value = Me.DataGridView1.Rows(i).Cells(1).Value
                Me.DataGridView2.Rows(Nbr_Resultat).Cells(2).Value = Me.DataGridView1.Rows(i).Cells(2).Value
                Me.DataGridView2.Rows(Nbr_Resultat).Cells(3).Value = Me.DataGridView1.Rows(i).Cells(3).Value
                Me.DataGridView2.Rows(Nbr_Resultat).Cells(4).Value = Me.DataGridView1.Rows(i).Cells(4).Value
                Me.DataGridView2.Rows(Nbr_Resultat).Cells(5).Value = Me.DataGridView1.Rows(i).Cells(5).Value
                Me.DataGridView2.Rows(Nbr_Resultat).Cells(6).Value = Me.DataGridView1.Rows(i).Cells(6).Value
                Nbr_Resultat += 1
            End If

        Next

        If Nbr_Resultat = 0 Then
            Me.LB_Resultat.Text = "Aucun résultat trouvé"
        End If

    End Sub

End Class

Pourriez vous bien maider