Problème code VBA sur recherche contenu de cellule

Bonjour,

j'ai réalisé un tableur excel contenant des codes VBA

j'ai une feuille 1 qui répertorie des accidents et une autre feuille avec la liste du personnel

j'ai inscrit un code qui me dit si le nom écrit en feuille 1 ne fait pas partie de la liste du personnel, alors il faut supprimer les fonctions de chaque cellule pour remplir manuellement la ligne.

Un membre du forum m'a donné ce code

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B1:B2000")) Is Nothing Then
Dim i As Byte
On Error Resume Next
i = Application.WorksheetFunction.Match(Target, Worksheets("Liste du personnel").Range("B1:B2000"), 0)
If i = 0 Then
Target.EntireRow.ClearContents
End If
End If
End Sub

Le problème c'est que j'ai 1500 personnes dans ma liste du personnel

mais le Dim i As Byte me restreint jusque la ligne 255 de la liste.

Comment puis je faire pour que cela se réaise sur l'intégralité du tableau (jusque B2000).

Merci d'avance

Je ne comprends pas ton code...

Si ton problème vient du dim i as byte, Dim i as double mais cela m'étonnerait que ce soit ça.

Et bien étonnes toi car cela fonctionne ^^ Merci