Dans cette macro la ligne selection.ClearContents ne fonctionne.
La feuille est protégé mais les cellules ne sont pas vérouillées !!


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
Sub validationUser_Click()
 
    Dim ind As Integer
 
    Application.ScreenUpdating = False
    ind = 0
 
    Sheets("Donnée").Select 'Effacer les données de l'utilisateur précédent
    Range("E14:Q14").Select
    Selection.ClearContents
    Range("B45").Select  ' evite de voir la selection