j'ai une erreur dans mon code. j'ai besoin d'aide
Erreur d'exécution 1004 Erreur définie par l'application ou par l'objet

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
Private Sub CommandButton1_Click()
Dim ligne As Integer
Sheets("CG").Select
ligne = Range("A65536").End(xlUp).Row + 1
Range("A" & ligne).Value = TextBox1.Value
Range("B" & ligne).Value = CDate(TextBox2)
Range("C" & ligne).Value = ComboBox1.Value
Range("D" & ligne).Value = TextBox3.Value
Range("E" & ligne).Value = TextBox4.Value
If CheckBox1.Value = True Then
Range("F" & ligne).Value = CDate(TextBox2)
End If
Range("A2:h" & Range("A65536").End(xlUp).Row).Select
  Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
                 OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
                 DataOption1:=xlSortNormal
Range("A1").Select

Sheets("BD_V").Select
ligne = Range("A65536").End(xlUp).Row + 1
Range("A" & ligne).Value = TextBox1.Value
Range("B" & ligne).Value = CDate(TextBox2)
Range("C" & ligne).Value = ComboBox1.Value
Range("D" & ligne).Value = TextBox3.Value
Range("E" & ligne).Value = TextBox7.Value
Range("F" & ligne).Value = ComboBox3.Value
Range("G" & ligne).Value = TextBox4.Value
Range("H" & ligne).Value = ComboBox2.Value
Range("I" & ligne).Value = TextBox5.Value
Range("K" & ligne).Value = TextBox6.Value
Range("AL" & ligne).Value = Month(Date) * 1.1
Range("AM" & ligne).Value = "=ROUND(TODAY()-RC[-37],0)+1"
l'erreur a ce ligne
Range("AU" & ligne).Value = "=If(Or(Today()<RC[-45],RC[-45]>EoMonth(RC[-1],0)),"",If(And(RC[-45]<EoMonth(RC[-1],0),RC[-16]="",Today()<=EoMonth(RC[-1],0)),Today()-RC[-45]+1,If(And(RC[-45]<EoMonth(RC[-1],0),RC[-16]="",Ttoday()>EoMonth(RC[-1],0)),EoMonth(RC[-1],0)-RC[-45]+1,If(And(RC[-45]<EoMonth(RC[-1],0),RC[-16]<EoMonth(RC[-1],0)),RC[-16]-RC[-45]+1,If(And(RC[-45]<EoMonth(RC[-1],0),RC[-16]>EoMonth(RC[-1],0)),EoMonth(RC[-1],0)-RC[-45]+1)))))"

Range("A2:AZ" & Range("A65536").End(xlUp).Row).Select
  Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
                 OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
                 DataOption1:=xlSortNormal
Range("A1").Select

Unload Me
RV.Show
End Sub