Bonjour pour certains et Re pour les autres,

Quelqu'un peut-il me dire la raison pour laquelle ma cellule "Macellule" ne se verrouille pas?

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
Public Sub transfert()

Application.ScreenUpdating = False
Dim Mafeuille As Worksheet
Dim Macellule As Range
With Workbooks("Progr.xls").Sheets("MemoiresUFS")
    Set Mafeuille = Workbooks(.Range("H3").Value).Sheets(.Range("H2").Value)
    Set Macellule = .Range("H1")
End With       '1
With Workbooks("Progr.xls").Sheets("accueil")
    Mafeuille.Unprotect
    Mafeuille.Range(Macellule) = .[C1]
    Mafeuille.Range(Macellule).Offset(1, 0) = .[C2]
    Mafeuille.Range(Macellule).Offset(2, 0) = .[C3]
    Mafeuille.Range(Macellule).Offset(3, 0) = .[C4]
    Mafeuille.Range(Macellule).Offset(-1, 0) = .[B2]
    Mafeuille.Range(Macellule).Offset(-2, 0) = .[A4]
    If .[A5] = "AV" Then
        Mafeuille.Range(Macellule).Offset(-4, 0) = .[A3]
        Mafeuille.Range(Macellule).Offset(-5, 0) = .[A2]
        Mafeuille.Range(Macellule).Offset(-6, 0) = .[A1]
    End If

End With

With Workbooks("Progr.xls").Sheets("MemoiresUFS")
Workbooks(.Range("H3").Value).Activate
End With

Mafeuille.Activate
Macellule.Locked = True
Range(Macellule).Offset(0, 1).Activate
Mafeuille.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

Application.ScreenUpdating = True
End Sub
Si je regarde sa valeur avec un espion, au point '1, elle prend bien la référence de ma cellule active et à la fin de mon code, j'ai comme valeur "Out of context"

Merci,

Chewi