Bonjour le forum,

Je rencontre de nouveau un problème dans la création de mon fichier:
Je n'avais pas d'erreur auparavant, avant cela fonctionnait correctement.
J'ai essayé en fermant et en réouvrant excel mais toujours le même.

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
29
30
31
32
33
34
35
36
37
38
39
40
41
Option Explicit

'Placer le bouton dans la barre d'outil
Sub TEST()

Dim Macellule As Range
Dim Mafeuille As Worksheet
Dim Monclasseur As Workbook

Set Macellule = ActiveCell    
Set Mafeuille = ActiveSheet
Set Monclasseur = ActiveWorkbook

With Workbooks("Progr.xls").Worksheets("MemoiresUFS")
.Range("H1") = Macellule.Address
.Range("H2") = Mafeuille.Name
.Range("H3") = Monclasseur.Name
End With

If Macellule.Value <> "" Then Exit Sub

Dim reponse As Integer

If Macellule.Row = "14" Then
reponse = MsgBox("Confirmez-vous l'emplacement sur " & Mafeuille.Name & " ?", vbYesNo)
If reponse = 7 Then     'No
    Exit Sub
End If
    Load UfRouleauAV
    UfRouleauAV.Show

ElseIf Macellule.Row = "21" Then
reponse = MsgBox("Confirmez-vous l'emplacement sur " & Mafeuille.Name & " ?", vbYesNo)
If reponse = 7 Then     'No
    Exit Sub
End If
    Load UfRouleauAP
    UfRouleauAP.Show
End If

End Sub
Voici l'erreur:
Run-time error '91':
Object variable or With Block variable not set
Et pourtant mon object UserForm UfRouleauAv existe bel et bien!

"Object variable Not set"
Il s'agit d'un UserForm !!!

Merci d'avance pour ceux qui me viendront en aide.