comment raccourcir ce code
Code:
If UserForm2.N1.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N1.Value 'Ac = N1
If UserForm2.N2.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N2.Value 'Ad = N2
If UserForm2.N3.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N3.Value 'Ae = N3
If UserForm2.N4.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N4.Value 'Af = N4
If UserForm2.N5.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N5.Value 'Ag = N5
If UserForm2.N6.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N6.Value 'Ah = N6
If UserForm2.N7.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N7.Value 'Ai = N7
If UserForm2.N8.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N8.Value 'Aj = N8
If UserForm2.N9.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N9.Value 'Ak = N9
If UserForm2.N10.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N10.Value 'Al = N10
If UserForm2.N11.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N11.Value 'Am = N11
If UserForm2.N12.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N12.Value 'An = N12
If UserForm2.N13.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N13.Value 'Ao = N13
If UserForm2.N14.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N14.Value 'Ap = N14
If UserForm2.N15.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N15.Value 'Aq = N15
If UserForm2.N16.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N16.Value 'Ar = N16
If UserForm2.N17.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N17.Value 'At = N17
If UserForm2.N18.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N18.Value 'Au = N18
If UserForm2.N19.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N19.Value 'Av = N19
If UserForm2.N20.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N20.Value 'Aw = N20
If UserForm2.N21.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N21.Value 'Ax = N21
If UserForm2.N22.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N22.Value 'Ay = N22
If UserForm2.N23.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N23.Value 'Az = N23
If UserForm2.N24.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N24.Value 'Ba = N24
If UserForm2.N25.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N25.Value 'Bb = N25
If UserForm2.N26.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N26.Value 'Bc = N26
If UserForm2.N27.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N27.Value 'Bd = N27
If UserForm2.N28.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N28.Value 'Be = N28
If UserForm2.N29.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.N29.Value 'Bf = N29
If UserForm2.R1.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R1.Value 'Da = R1
If UserForm2.R2.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R2.Value 'Db = R2
If UserForm2.R3.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R3.Value 'Dc = R3
If UserForm2.R4.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R4.Value 'Dd = R4
If UserForm2.R5.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R5.Value 'De = R5
If UserForm2.R6.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R6.Value 'Df = R6
If UserForm2.R7.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R7.Value 'Dg = R7
If UserForm2.R8.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R8.Value 'Dh = R8
If UserForm2.R9.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R9.Value 'Di = R9
If UserForm2.R10.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R10.Value 'Dj = R10
If UserForm2.R11.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R11.Value 'Dk = R11
If UserForm2.R12.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R12.Value 'Dl = R12
If UserForm2.R13.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R13.Value 'Dm = R13
If UserForm2.R14.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R14.Value 'Dn = R14
If UserForm2.R15.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R15.Value 'Dp = R15
If UserForm2.R16.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R16.Value 'Dq = R16
If UserForm2.R17.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R17.Value 'Dr = R17
If UserForm2.R18.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R18.Value 'Ds = R18
If UserForm2.R19.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R19.Value 'Dt = R19
If UserForm2.R20.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R20.Value 'Du = R20
If UserForm2.R21.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R21.Value 'Dv = R21
If UserForm2.R22.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R22.Value 'Dw = R22
If UserForm2.R23.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R23.Value 'Dx = R23
If UserForm2.R24.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R24.Value 'Dy = R24
If UserForm2.R25.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R25.Value 'Dz = R25
If UserForm2.R26.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R26.Value 'Ea = R26
If UserForm2.R27.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R27.Value 'Eb = R27
If UserForm2.R28.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R28.Value 'Ec = R28
If UserForm2.R29.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R29.Value 'Ed = R29
If UserForm2.R30.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R30.Value 'Ee = R30
If UserForm2.R31.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R31.Value 'Ef = R31
If UserForm2.R32.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R32.Value 'Eg = R32
If UserForm2.R33.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R33.Value 'Eh = R33
If UserForm2.R34.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R34.Value 'Ei = R34
If UserForm2.R35.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R35.Value 'Ej = R35
If UserForm2.R36.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R36.Value 'Ek = R36
If UserForm2.R37.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R37.Value 'El = R37
If UserForm2.R38.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R38.Value 'Em = R38
If UserForm2.R39.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R39.Value 'En = R39
If UserForm2.R40.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R40.Value 'Eo = R40
If UserForm2.R41.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R41.Value 'Ep = R41
If UserForm2.R42.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R42.Value 'Eq = R42
If UserForm2.R43.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R43.Value 'Er = R43
If UserForm2.R44.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R44.Value 'Es = R44
If UserForm2.R45.Value <> Sheets("record").Range("H3") Then Sheets("record").Range("H3") = UserForm2.R45.Value 'Et = R45