Bonsoir
Merci pour ton avis, et ne maitrisant pas encore assez les codes VBA, je vais mettre tes codes dans ma base doc, cela pourrait être utile plus tard.
J'ai résolu ma protection BP "Mettre PE" en faisant appel à une seconde userform, ou là je doit saisir un Password qui exécute le code que tu ma donné , et qui fonctionne parfaitement.
Par contre en analysant le résultat, je me suis aperçu que j'avais oublié d'effacer de:
Cells(Y, 5)à Cells(Y, 10)
Donc je me suis mis à la recherche pour pouvoir mettre une seconde instruction a:
Private Sub CommandButton3_Click()
Dim i%, Y%
For i = 3 To Worksheets.Count
With Worksheets(i)
For Y = 2 To .Cells(.Rows.Count, 2).End(xlUp).Row
If Not IsEmpty(.Cells(Y, 3)) Then .Cells(Y, 4) = "PE"
Next Y
End With
Next i
End Sub
Je t'avoue que je n'y suis pas encore arrivé.
Peux-tu me réaliser cela stp
Merci