bonjour j ai un sub qui me fait ramer le pc y a t il un moyen de l allégé... ou de changer de methode... il sert a vider des cellules qui ne contiennent pas de formule que du texte apres une copie de feuille:

ce code est activé a partir d un bouton sur un forms:

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
Dim NewSh As Worksheet
    Dim a, b, c, d As Range
    Worksheets("Main").Copy After:=ActiveWorkbook.Sheets(Sheets.Count)
    Set NewSh = ActiveWorkbook.Worksheets(Sheets.Count)
    NewSh.Name = "Add" & Sheets.Count - 2
    NewSh.Visible = True
    NewSh.Select
 
    For Each a In ActiveSheet.Range("G12:N263")
        If Not a.HasFormula Then a.ClearContents
    Next a
    For Each b In ActiveSheet.Range("X9:AC10")
         b.ClearContents
    Next b
     For Each c In ActiveSheet.Range("R12:R263")
        If Not c.HasFormula Then c.ClearContents
    Next c
     For Each d In ActiveSheet.Range("T12:T263")
      d.ClearContents
    Next d


merci