Bonjour, je suis en train de me former sur VBA actuellement (en autodidacte pas facile)

J'ai recu il y a quelque temps ce morceau de macro:
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
 
 
'CREATION DES ONGLETS
    Dim CelTest As Range
    Dim SheetTest As Worksheet
    With Worksheets(1)
        For Each CelTest In .Range(.Cells(Rows.Count, "G").End(xlUp), .Range("G1"))
            If CelTest.Value <> "" Then
                For Each SheetTest In Worksheets
                    If SheetTest.Name = CelTest.Value Then
                    .Rows(CelTest.Row).Copy Sheets(CelTest.Value).Cells(Rows.Count, "G").End(xlUp).Offset(1, -6)
        GoTo apres
                    End If
                Next
                Sheets.Add after:=Sheets(Sheets.Count)
                Sheets(Sheets.Count).Name = CelTest.Value
                .Rows(CelTest.Row).Copy Sheets(CelTest.Value).Cells(Rows.Count, "G").End(xlUp).Offset(1, -6)
apres:
            End If
        Next
    End With
Ceci fonctionne très bien, par contre je ne comprend pas pourquoi il y a un "." avant Range dans "For Each CelTest In .Range(.Cells(Rows.Count, "G").End(xlUp), .Range"

pouvez-vous m'aider merci