Set zoneRecherche = Range(debcat(nbCat), fincat(nbCat)).Offset(1, 0)
With zoneRecherche
Set DonneeCherchee = .Find(tab_sscat(k), LookIn:=xlValues, LookAt:=xlWhole, SearchDirection:=xlNext)
End With
For l = 1 To (fincat(nbCat).Column - debcat(nbCat).Column + 1)
If Not DonneeCherchee Is Nothing Then
Debug.Print "DonneeCherchee est en " & DonneeCherchee.Address
...