bonjour a tous,

dans un formulaire j'ai crée un bouton me permettant de supprimer les données contenue dans plusieurs cellules ce qui me donne le code suivant

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
 
Range("C12:C18,F12:F18,I12:I18,L12:L18,O12:O18").Select
    Selection.ClearContents
    Range("A3").Activate
    Range("F24: F30 , I24: I30 , L24: L30 , O24: O30").Select
    Selection.ClearContents
    Range("A3").Activate
    Range("F36: F42 , I36: I42 , L36: L42 , O36: O42 , R36: R42").Select
    Selection.ClearContents
    Range("A3").Activate
    Range("F48: F54 , I48: I54 , L48: L54 , O48: O54").Select
    Selection.ClearContents
    Range("A3").Activate
    Range("F60: F66 , I60: I66 , L60: L66 , O60: O66 , R60: R66").Select
    Selection.ClearContents
    Range("A3").Activate
j'ai essayer de tout mettre ensemble ca ne marche pas et j'aimerais savoir comment je peut simplifier ce code

merci