textbox et format nombre sur cellule

Private Sub VALIDER_Click()
Dim A As Integer
Dim B As Integer
Dim C As Integer
Dim D As Integer
Dim E As Integer
Dim F As Integer
Dim G As Integer
Dim H As Integer
Dim I As Integer
Dim J As Integer
Dim K As Integer
Dim L As Integer
Dim M As Integer
Dim N As Integer
Dim O As Integer
Dim P As Integer
Dim Q As Integer
Dim R As Integer
Dim S As Integer
Dim T As Integer
A = Nbre1
B = Nbre2
C = Nbre3
D = Nbre4
E = Nbre5
F = Nbre6
G = Nbre7
H = Nbre8
I = Nbre9
J = Nbre10
K = Nbre11
L = Nbre12
M = Nbre13
N = Nbre14
O = Nbre15
P = Nbre16
Q = Nbre17
R = Nbre18
S = Nbre19
T = Nbre20


If REPJOUR = 'LUNDI' Then
Sheets(7).Range('B2') = A
Sheets(7).Range('B2').Offset(1, 0) = B
Sheets(7).[B2].Offset(2, 0) = C
Sheets(7).[B2].Offset(3, 0) = D
Sheets(7).[B2].Offset(4, 0) = E
Sheets(7).[B2].Offset(5, 0) = F
Sheets(7).[B2].Offset(6, 0) = G
Sheets(7).[B2].Offset(7, 0) = H
Sheets(7).[B2].Offset(8, 0) = I
Sheets(7).[B2].Offset(9, 0) = J
Sheets(7).[B2].Offset(10, 0) = K
Sheets(7).[B2].Offset(11, 0) = L
Sheets(7).[B2].Offset(12, 0) = M
Sheets(7).[B2].Offset(13, 0) = N
Sheets(7).[B2].Offset(14, 0) = O
Sheets(7).[B2].Offset(15, 0) = P
Sheets(7).[B2].Offset(16, 0) = Q
Sheets(7).[B2].Offset(17, 0) = R
Sheets(7).[B2].Offset(18, 0) = S
Sheets(7).[B2].Offset(19, 0) = T

End If