Bonjour

J'ai un souci avec mon code, merci de m'aiguiller

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
45
46
47
48
49
50
51
52
53
Private Sub Worksheet_Change(ByVal Target As Range)
 
 
    Dim iLigFin3 As Integer
    Dim iLig3 As Integer
    Dim iEcr3 As Integer
 
 
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Calculation = xlCalculationManual
    Application.DisplayStatusBar = False
 
 
    If Target.Count = 1 Then
        If Target.AddressLocal = "$B$1" Then
 
            iLigFin3 = Range("e" & Rows.Count).End(xlUp).Row
 
 
            If iLigFin3 >= 26 Then
                Range("e26:o39" & iLigFin3).ClearContents
            End If
 
            iEcr3 = 26
            iLigFin3 = Sheets("Facturation_Détaillée").Range("A" & Rows.Count).End(xlUp).Row
 
 
             For iLig3 = 2 To iLigFin
                If Sheets("Facturation_Détaillée").Range("A" & iLig3).Value = Target.Value Then
                    Range("e" & iEcr3).Value = Sheets("Facturation_Détaillée").Range("at" & iLig3).Value
                    Range("j" & iEcr3).Value = Sheets("Facturation_Détaillée").Range("au" & iLig3).Value
                    Range("k" & iEcr3).Value = Sheets("Facturation_Détaillée").Range("av" & iLig3).Value
                    Range("n" & iEcr3).Value = Sheets("Facturation_Détaillée").Range("ar" & iLig3).Value
                    Range("o" & iEcr3).Value = Sheets("Facturation_Détaillée").Range("aw" & iLig3).Value
                    iEcr3 = iEcr3 + 1
                End If
            Next iLig3
 
            Sheets("Facture").Range("e26:o39").SpecialCells(xlCellTypeBlanks).Delete xlUp
 
        End If
  End If
 
 
 
        Application.ScreenUpdating = True
        Application.EnableEvents = True
        Application.Calculation = xlCalculationAutomatic
        Application.DisplayStatusBar = True
 
 
End Sub
Mon soucis est que le contenu des cellules qui excède le range E26:O39 sont effacer

Merci de votre aide