Sub MasquerDonnees()
' Cellules à masquer
Dim Cellules As Variant
Cellules = Array("A1", "C3", "E5") ' Remplacez par les références de vos cellules
' Masquer les données et protéger la feuille
Dim cellule As Variant
For Each cellule In Cellules
With ThisWorkbook.Sheets("Feuil1").Range(cellule)
.NumberFormat = ";;;"
.Locked = True
End With
Next cellule
' Protéger la feuille
ThisWorkbook.Sheets("Feuil1").Protect Password:="votre mot de passe", UserInterfaceOnly:=True
' Désactiver la sélection des cellules verrouillées
ThisWorkbook.Sheets("Feuil1").EnableSelection = xlUnlockedCells
End Sub