Bonjour,

Novice en VBA je souhaiterais supprimer la ligne d'un fichier excel mais uniquement si cette ligne se trouve a partir de la ligne 6
Ma feuille est protéger en écriture pour éviter les modifications.

Merci d'avance pour votre aide

Mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub EffaceLigneTableau1()
 
ActiveSheet.Unprotect "MDP"
    With Selection          
         If .Columns.Count > 10 Then            
            If MsgBox("confirmer la supression de la ligne", vbYesNo, "demande de confirmation d'ajout") = vbYes Then
            ActiveSheet.Rows(ActiveCell.Row).EntireRow.Delete            
            End If          
    Else
    MsgBox "Sélectionner une ligne"
End If
End With
ActiveSheet.Protect "MDP", True, True, True
End Sub