Bonjour le forum

J'ai essayé de réaliser un code (déduction faite d'un autre code qui m'a été proposé) mais il y'a un message d'erreur (référence incorrecte ou non qualifiée).
Cette partie du code est directement soulignée
Code : Sélectionner tout - Visualiser dans une fenêtre à part
.[K7]
Si une solution venait à être trouvée pour l'erreur signalée, je pense pouvoir l'adapter au reste du code car presque identique.

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
Sub Gestion_Supr_collage()
 
'Supprimer la plage du bilan S-2
 
    With ThisWorkbook.Worksheets("BILAN_S-2").Range("A7", .[K7].End(xlDown)).EntireRow.Delete
 
    End With
 
'------------------------------------------
 
'copier le bilan S-1 dans la feuille BILAN_S-2
 
    With ThisWorkbook.Worksheets("BILAN_S-1").Range("A6", .[K6].End(xlDown)).Copy
 
    .Worksheets("BILAN_S-2").[A6]
 
    End With
 
'-------------------------------------------
 
'Supprimer la plage du bilan S-1
 
    With ThisWorkbook.Worksheets("BILAN_S-1").Range("A6", .[K6].End(xlDown)).EntireRow.Delete
 
    End With
 
'------------------------------------------
 
'copier le bilan S dans la feuille BILAN_S-1
 
    With ThisWorkbook.Worksheets("BILAN_S-1").Range("A6", .[K6].End(xlDown)).Copy
 
    .Worksheets("BILAN_S-1").[A6]
 
    End With
 
'-----------------------------------------------------------
 
    With ThisWorkbook.Worksheets("BILAN_S")
 
        .Range("A7", .[K7].End(xlDown)).EntireRow.Delete
 
    End With
 
    With Workbooks("Traitement_Bilan_Agences_2018.xlsm").Worksheets("CENTRALISATION")
 
        .Range("B2", .[J2].End(xlDown)).Copy ThisWorkbook.Worksheets("BILAN_S").[C6]
 
    End With
 
    With Workbooks("Traitement_Bilan_Agences_2018.xlsm").Worksheets("CENTRALISATION")
 
        .Range("A2", .[A2].End(xlDown)).Copy ThisWorkbook.Worksheets("BILAN_PERIODE").[A6]
 
    End With
 
 
 
    'sh.Range("A1").Select
 
 
 
End Sub
Edit : je viens d'enlever le point (.) derrière le k et l'erreur n'est plus signalée.
Pensez-vous que c'est la caude du débogage?