Bonjour à tous,
J'utilise actuellement ce code :
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 -...