Dim vWbExercice As Workbook

Dim vWsMain As Worksheet
Dim vWsConsol As Worksheet
Dim vWsNew As Worksheet

Dim vStrMainWs As String
Dim vStrConsolWs As String
Dim vStrYear As String
Dim vStrMonth As String
Dim vStrPath As String

Dim vTRConsol As tTRRange
Dim vTRNew As tTRRange

Dim vIntCounter As Integer
Dim vLongOldRangeRow As Long

Dim vTCIDInput As tTCColumn
Dim vTCNameInput As tTCColumn
Dim vTCRepInput As tTCColumn
Dim vTCSOSInput As tTCColumn
Dim vTCValueInput As tTCColumn
Dim vTCAccountInput As tTCColumn

Dim vTCIDConsol As tTCColumn
Dim vTCCustomerConsol As tTCColumn
Dim vTCNameConsol As tTCColumn
Dim vTCRepConsol As tTCColumn
Dim vTCSOSConsol As tTCColumn
Dim vTCValueConsol As tTCColumn
Dim vTCCounterConsol As tTCColumn