XL 2019 VBA erreur de débutant dans une boucle snifff

Bonjour à tous,

Débutant en programmation je bute sur erreur de débutant. Lorsque je lance cette macro il me renvoie une erreur

Cette macro doit rechercher un numéro qui est en D2 sur la feuille PLANNING et doit effectuer une recherche sur le RANGE (D2200) de toutes les feuilles à partir de la 5ième
Si la valeur est trouvée je sélectionne la cellule ou la valeur est trouvée.

Quelqu'un peut-il me dire d'où vient mon erreur ? Je serai un peu moins bête après
Merci d'avance.

Message d'erreur en dessous du code


Sub FIND_DAT()
'
' FIND_DAT Macro
'
Application.ScreenUpdating = True

Dim nbfeuilles As Long
Dim numéro As Integer
Dim celluletrouvee As Range
Dim ligne As Integer
Dim col As Integer
Dim I As Integer

nbfeuilles = ThisWorkbook.Sheets.Count
numéro = Worksheets("PLANNING").Range("D2")
I = 5

Do While I <= nbfeuilles
Worksheets(I).Activate
Set celluletrouvee = Range("D2200").Find(numéro, LookAt:=xlWhole)
If celluletrouvee Is Nothing Then I = I + 1
Else
ligne = celluletrouvee.Row
col = celluletrouvee.Column
Range("D" & ligne).Select
End If
Loop

MsgBox ("CETTE MACHINE N'A PAS ETE TROUVÉE DANS LES FEUILLES DE TOURNÉES")
End Sub