"Erreur de compilation" - Methode Selection - Excel 2010

Bonjour,


Je suis dans l'impasse!

Je tiens à dire que je n'ai jamais prit de cours pour les VBA, j'ai apprit par moi-même donc désolée si mes codes vous sembles débutant.



Tout fonctionnait a merveille et ce matin, POUFF!

Je suis dans un Userform
Je travaille en réseau

J'ai le message d'Erreur "Erreur de compilation" - "Membre de methode ou de donnée introuvable"

vis-à-vis la ligne 35

Il met l'erreur partout où j'ai mit Selection mais sur le membre de la méthode et non sur le mot Séecltion.
Si je remplace tous mes "Selection" par "ActiveCell", j'ai une nouvelle erreur qui dit qu'il est impossible de modifier une cellule fusionnée, même si c'est juste pour effacer le contenu! |fancy]


Mes cheveux tombent en ce moment! Qu'est-ce qui se passe tout d'un coup?



Je voudrais vous mettre mon fichier mais je ne sais pas comment...
Voici mon code complet



1 Private Sub CommandButton1_Click()
2
3 'Transférer les activités cochés (max 5) dans les cellules appropriées de la feuille Rencontre x

4
5 Dim Ctrl As Control
6 Dim i As Long
7 Dim k As Long
8 Dim j As Integer
9 Dim motdp As String
10
11 Application.ScreenUpdating = False
12 Application.DisplayAlerts = False
13
14 motdp = Sheets("list").Range("a1").Value
15
16 ThisWorkbook.Unprotect Password:=motdp
17 'ActiveSheet.Unprotect Password:=motdp
18 On Error GoTo errorhandler
19
20 j = 1
21
22 For Each Ctrl In Me.Controls
23
24 If TypeName(Ctrl) = "CheckBox" Then
25 If Ctrl.Value = True Then
26 If j = 6 Then
27 Exit For
28 ElseIf ActiveSheet.Name = "Conclusion" Then
29 i = 16
30 Else: i = 20
31 End If
32 'msgbox Ctrl.Name
33 If Ctrl.Caption = "Autre - Précisez:" Then
34 ActiveSheet.Range("B" & i).Offset(j, 0).Select

35***ERREUR ICI Selection.ClearContents
'Il met l'erreur partout où j'ai mit Selection. Si je met ActiveCell. J'ai une nouvelle erreur qui dit qu'il est impossible de modifier une cellule fusionnée, même si c'est juste pour effacer le contenu!

36 Selection.UnMerge
37 Call fusion_cell 'Module 12
38 If Ctrl.Name = "CheckBox7" Then
39 ActiveSheet.Range("B" & i).Offset(j, 0).Select
40 ActiveCell.Value = CheckBox7.Caption
41 ActiveCell.Offset(0, 1).Value = TextBox2
42 ElseIf Ctrl.Name = "CheckBox8" Then
43 ActiveSheet.Range("B20").Offset(j, 0).Value = CheckBox8.Caption

44 ActiveCell.Offset(0, 1).Select
45 ActiveCell.Value = TextBox3
46 ElseIf Ctrl.Name = "CheckBox9" Then
47 ActiveSheet.Range("B20").Offset(j, 0).Value = CheckBox9.Caption

48 ActiveCell.Offset(0, 1).Select
49 ActiveCell.Value = TextBox4
50 ElseIf Ctrl.Name = "CheckBox10" Then
51 ActiveSheet.Range("B20").Offset(j, 0).Value = CheckBox10.Caption

52 ActiveCell.Offset(0, 1).Select
53 ActiveCell.Value = TextBox5
54 End If
55 ActiveSheet.Range("B" & i).Select
56 Else: ActiveSheet.Range("B" & i).Offset(j, 0).Select
57 Call fusionreg 'Module 12
58 ActiveSheet.Range("B" & i).Offset(j, 0).Value = Ctrl.Caption
59 ActiveSheet.Range("B" & i).Select
60 End If
61 j = j + 1
62 End If
63 End If
64 Next Ctrl
65
66
67
68 If ActiveSheet.Name = "Conclusion" Then
69 i = 16
70 Else: i = 20
71 End If
72 k = 1
73
74 For k = 1 To 5
75 If j = 6 Then Exit For
76 ActiveSheet.Range("B" & i).Offset(j, 0).Select
77 If ActiveCell <> "" Then
78 If ActiveCell.Value = "Autre - Précisez:" Then
79 ActiveCell.ClearContents
80 Call fusionreg
81 Else: ActiveCell.ClearContents
82 End If
83 End If
84 j = j + 1
85 Next k
86 Unload Me
87 Application.ScreenUpdating = False
88 Application.DisplayAlerts = False
89
90 'ActiveSheet.Protect Password:=motdp
91 ThisWorkbook.Protect Password:=motdp
92
93
94 Exit Sub
95 errorhandler:
96 Application.ScreenUpdating = True
97 Application.DisplayAlerts = True
98 Unload Me
99 ActiveSheet.Protect Password:=motdp
100 ThisWorkbook.Protect Password:=motdp
101
102 msgbox Err.Description & Chr(10) & "Veuillez prendre une capture d'écran de ce message et l'envoyer à votre technicienne.", vbCritical + vbOKOnly, "Une erreur est survenue"

103
104 End Sub