Bonjour tout le monde !!

Tout d'abord voici le code qui me pose problème (désolée pour les puristes mais j'apprends sur le tas... )

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim main As String
Dim CAT As Range
Dim CatR As Range
Dim SubR As Range
Dim x As String
 
Sheets("Menu_deroulante").Select
 
Set CatR = Range(Cells(1, 2), Cells(21, 8))
Set SubR = Range("A25", "BG53")
 
Sheets("Input_form").Activate
main = Cells(7, 3).Value
 
Sheets("Menu_deroulante").Activate
CatR.Select
 
Selection.Find(What:=main, after:=ActiveCell, LookIn:=formulas, lookat:=xlPart, searchorder:=xlByColumns, searchdirection:=xlNext, MatchCase:=False).Activate
x = activecells.Column
J'ai du faire une erreur quelque part car il me renvoit une erreur 1004 en me disant qu'il est "Unable to get the Find Property of the Range Class"....

Z'avez vu, en plus il est désagréable avec moi !!!

Une ame charitable pour me donner un ch'tit coup de main ??

Merci !