bonjour !oui j'ai un code mais faut voir encore si il marche (ci dessous)
If Target.Address(0, 0) <> "A2" Then Exit Sub
'si la cellule modifiée est différente de A2, on sort
Select Case [A2]
'tester A2
Case "profil reno bois 30"
[E4] = "aile de 0.1"
[E17] = "aile de 0.1"
[D1O] = "aile de 0.1"
[F10] = "aile de 0.1"
Case "profil reno bois 40"
[E4] = "aile de 0.1"
[E17] = "aile de 0.1"
[D10] = "aile de 0.1"
[I10] = "aile de 0.1"
Case "profil reno bois 65"
[E4] = "aile de 0.1"
[E17] = "aile de 0.1"
[D10] = "aile de 0.1"
[I10] = "aile de 0.1"
Case "dormant D.6"
[E4] = ""
[E17] = ""
[D11] = ""
[I11] = ""
Case "dormant D.6 monobloc"
[E4] = ""
[E17] = ""
[D11] = ""
[I11] = ""
Case "profil reno bois 30 monobloc"
[E4] = "aile de 0.1"
[E17] = "aile de 0.1"
[D1O] = "aile de 0.1"
[F10] = "aile de 0.1"
End Select
End Sub