Bonjour François,
Super
Je me suis mal exprimé dans la demande de la deuxième condition, mais en ajoutant une ligne de code, pour effacer sous la cellule sélectionnée ça fonctionne super.
Range(Cells(Target.Row + 15, Target.Column), Cells(Target.Row + 1, Target.Column)).ClearContents
Tu n'aurais pas, par hasard, un début de solution pour la troisième condition ?
à partir de la cellule sélectionnée, écrire un "P" toutes les 15 cellule de chaque colonne à entête T2
Si ce n'est pas le cas, ce n'est pas grave, ton aide m'a été précieuse
Merci François A+