Bonjour,

Voila j'ai un code pour effacer la dernière colonne renseigner sur les parties "K4: AP50" qui marche très bien .
Seul petit souci est que la feuille à évoluer, et que j'ai des colonnes auquel il y a des formules et qu'il ne faut pas effacer, les colonnes "AQ4:E50" qui se rempli en fonction des cellules "K4: AP50".
Mon problème est-il possible d'effacer la dernière colonne renseigner uniquement sur les parties "K4: AP50" sans s'occuper des colonnes "AQ4E50"?

mon code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Sub Macro288()
 
 Dim DerColonne As Integer
     With Worksheets("Feuil1")
          DerColonne = .Cells(4, .Columns.Count).End(xlToLeft).Column
         .Range(.Cells(4, DerColonne), .Cells(50, DerColonne)).ClearContents
         .Cells(1, DerColonne).ClearContents
     End With
End Sub
D'avance merci à qui pourra m'aider.
Cordialement

Maval