Aide pour rechercher

[Vinvinsylvain]

bonsoir
voici mon code

Dim Mot As String
Dim Mot2 As String
Dim Nbre As Long
Dim Nbre2 As Long
Dim Cycle As Long
Dim Trouvé As Variant
Dim CellAddress As Variant
Dim MyValue As String

'Définition de la variable à rechercher
Mot = TxtNomVol.Value
Mot2 = TxtPrénomVol.Value
'Vérification si existante

For Each Ws In Worksheets('Récap. Interpelle').Range('A1:F1000')
Nbre = Nbre + Application.CountIf(Ws.Range('E1:F1000'), '=' & Mot)
Next Ws
'Message en cas de mot inexistant
If Nbre = 0 Then
MyValue = MsgBox('Ce Nom: ' & Mot & ' ' & Mot2 & 'n'est pas enregistré dans nos fichiers', vbOKOnly, ' Message ')
Else
Cycle = 0
If Nbre = 1 Then
MyValue = MsgBox('Ce Nom: ' & Mot & ' ' & Mot2 & ' est connu une fois dans nos fichiers, veuillez continuer l'édition du constat de vol, puis faire une recherche dans le Récap. Interpelle ', vbOKOnly, ' Message ')
Else
Cycle = 1
If Nbre = 2 Then
MyValue = MsgBox('Ce Nom: ' & Mot3 & ' ' & Mot2 & ' est connu deux fois dans nos fichiers, veuillez continuer l'édition du constat de vol, puis veuillez faire une recherche dans le Récap. Interpelle ', vbOKOnly, ' Message ')
Else
Cycle = 2
If Nbre = 3 Then
MyValue = MsgBox('Ce Nom: ' & Mot & ' ' & Mot2 & ' est connu trois fois dans nos fichiers, veuillez continuer l'édition du constat de vol, puis veuillez faire une recherche dans le Récap. Interpelle ', vbOKOnly, ' Message ')
Else
Cycle = 3
Nbre2 = Nbre + 3
If Nbre2 = Nbre + 3 Then
MyValue = MsgBox('Ce Nom: ' & Mot & ' ' & Mot2 & ' est connu plusieurs fois dans nos fichiers, veuillez continuer l'édition du constat de vol, puis veuillez faire une recherche dans le Récap. Interpelle ', vbOKOnly, ' Message ')
Else
End If
End If
End If
End If
End If
End Sub

comment je peut faire pour que la rechercher fonctionne car les valeurs rechercher se trouve dans deux colonne sur la feuille Récap. interppelle, pour le moment il rechercher seulement la valeur avec la txtNomVol
merci