VBA excel touver une cellule dans un tableau

'fermeture de userform4
Private Sub CommandButton1_Click()
Dim Tcritere
Dim Tmois
Dim licom As Long, nbli As Long, li As Long, cocri
Dim co As Long, nbco As Long
Dim trouve As Boolean
Tmois = Array(" ", "Jan", "Fev", "Mar", "Avr", "Mai", "Juin", "Jui", "Aou", "Sep", "Oct", "Nov", "Déc")
Tcritere = Array(" ", "SAP", "AVP", "INC", "DIV")
If VoirCheck Then
  Sheets(Tmois(Mois)).Activate
'  Sheets(Tmois(mois)).Select  'Doublon
  With ActiveSheet
  'ATTENTION, avec xlUp comprend également les lignes 16 et 17 (vides)
  'ainsi que les lignes 18 à 21
  'Le code ci-dessous recherche jusque la ligne 15 (ce qui est logique)
    nbli = Range("A3").End(xlDown).Row
    trouve = False
    For li = 3 To nbli
     If .Cells(li, 1) = commune Then
        trouve = True
        licom = li  ' ligne commune
        Exit For
      End If
    Next li
    If trouve Then
      trouve = False
      For li = 1 To 4
        If Tcritere(li) = critere Then
          trouve = True
          cocri = li  ' numéro critere
          Exit For
        End If
      Next li
      If trouve Then
        .Cells(licom, 1 + (jour - 1) * 4 + cocri).Select
      End If
    End If
  End With
Else
  MsgBox "Vous devez sélectionner au moins un véhicule avant de valider...", vbInformation, "Merci de suivre les instructions..."
  Exit Sub
End If
Unload Me
a$ = ActiveSheet.Name
End Sub

'Cette fonction remplace les 11 événement Change des CheckBox
'Et le test des 11 CheckBox pour savoir si au moins un est sélectiionner
'Evite aussi de devoir décrémenter la feuille si "DéCheck" un checkBox
Private Function VoirCheck() As Boolean
Dim Chk As Control, Lig As Byte
    With Sheets("Véhicules")
    For Each Chk In Me.Controls
        If TypeOf Chk Is MSForms.CheckBox Then
            If Chk.Value Then
                Lig = Val(Right(Chk.Name, 2))
                Cells(Lig, 2) = Cells(Lig, 2) + 1: VoirCheck = True
            End If
        End If
    Next Chk
    End With
End Function

      If trouve Then  
        ' MAJ des interventions dans la feuille mois  
        li = licom  
        co = 1 + (jour - 1) * 4 + cocri  
        .Cells(li, co).Value = .Cells(li, co).Value + 1  
      End If

Lig = Val(Right(Chk.Name, 2)) 
                Cells(Lig, 2) = Cells(Lig, 2) + 1: VoirCheck = True

Lig = Val(Right(Chk.Name, 2)) 
                .Cells(Lig, 2) = .Cells(Lig, 2) + 1: VoirCheck = True