bonjour tout le monde!

Voilà mon problème:
Le principe de mon fichier : Par un userfom l'utilisateur peut rentrer les caractéristiques primaires d'un nouveau projet, qui se range tout seul dans un tableau récapitulatif, selon certains critères. des caractéristiques secondaires (nom, adresse, téléphone...) doivent être ajoutées à celles entrée manuellement selon ces critères
ainsi je défini deux variables String :
"Département" et "Organisme"

Mon problème c'est que la liste des éléments pouvant être "organisme" est ouverte.C'est à dire que pour la mise en service de mon fichier, il y a un certain nombre d'organismes, mais l'utilisateur peut en rentrer d'autres (par un second Userform, qui ne pose pas de problèmes...).

Voici mon code:

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
20
21
22
23
24
25
26
27
28
With Sheets("Liste des organismes")
        If Organisme = "DIR SO" Then
        .Range("D69 : H69").Copy
        Sheets("Liste projets").Range("A65535").End(xlUp).Offset(0, 9).PasteSpecial Paste:=xlValues
            Application.CutCopyMode = False
        End If
 
 
        If Organisme = "Conseil Général" Then
        For i = 7 To 34
            If .Range("C" & i).Value = Département Then
                .Range("D" & i & ":H" & i).Copy
                Sheets("Liste projets").Range("A65535").End(xlUp).Offset(0, 9).PasteSpecial Paste:=xlValues
                Application.CutCopyMode = False
            End If
        Next i
        End If
 
 
        For n = 76 To 200
            If .Range("C" & n).Value = Sheets("champs pour listes").Range("A1").Value Then
                .Range("D" & n & ":H" & n).Copy
                Sheets("Liste projets").Range("A65535").End(xlUp).Offset(0, 9).PasteSpecial Paste:=xlValues
                Application.CutCopyMode = False
            End If
        Next n
 
End With
Les deux premiers if fonctionnent car ils font appel à un élément ou un élément d'une liste finie.
Pour le troisième, dans le code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Sheets("champs pour listes").Range("A1").Value
j'essaie de faire appel à un élément rentré par le userform, il est affiché dans la cellule A1 onglet "champs pour listes"...

si quelqu'un peut me dire ce qu'il ne va pas ou une autre façon de procédé...Merci