Re Pascal, Arnaud,
Le message précédent est faux, c'est pas le code que j'ai écrit... Sorry
Arnaud, je n'avais pas essayé ta méthode car je pensais que celle de Pascal était plus simple, juste du code dans thisworkbook et rien à ajouter dans toutes les feuilles.
J'ai encore un souci... je dois mal me débrouiller !
Dans ThisWorkbook, j'ai mis le code suivant :
Private Sub Workbook_sheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.ScreenUpdating = False
If Target.WorkSheet.Name <> "Détails" And Target.WorkSheet.Name <> "Consolidation UCPA" And Target.WorkSheet.Name <> "consolidation ARFA" Then
If Target.Cells = Range("C17") Or Target.Cells = Range("D20") Or _
Target.Cells = Range("D21") Or Target.Cells = Range("D22") Or _
Target.Cells = Range("D23") Or Target.Cells = Range("D24") Or _
Target.Cells = Range("D25") Or Target.Cells = Range("D26") Or _
Target.Cells = Range("D27") Or Target.Cells = Range("D28") Or _
Target.Cells = Range("D29") Or Target.Cells = Range("D30") Or _
Target.Cells = Range("D31") Or Target.Cells = Range("D32") Or _
Target.Cells = Range("D33") Or Target.Cells = Range("D34") Or _
Target.Cells = Range("D35") Or Target.Cells = Range("D36") Or _
Target.Cells = Range("D37") Or Target.Cells = Range("D38") Or _
Target.Cells = Range("D39") Then
mon code (qui marche si je le met sur chacune des feuilles)
End if
End if
Lorsque je modifie une cellule, le programme ne s'arrête plus ! Je suis obligé de fermer l'application avec ctrl+Alt+Supp
Savez-vous d'où ça peut venir ?