Rapport de message :*
 

Message ambigu dans code ?

Titre du sujet : Message ambigu dans code ?
par Poppy le 15/09/2010 11:57:51

Bonjour,
J'ai un code ou je ne sais pas quoi faire, suite au message:
"Nom ambigue détecté : Worksheet_change"

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address <> "$B$5" Then Exit Sub
  Select Case Clic
    Case 1: [B7] = Target
    Case 2: [B9] = Target
    Case 3: [B11] = Target
  End Select
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address <> "$D$5" Then Exit Sub
  Select Case Clic2
    Case 4: [D7] = Target
    Case 5: [D9] = Target
    Case 6: [D11] = Target
  End Select
End Sub

Que dois-je faire pour que ça fonctionne ,
Merci de votre aide.
Poppy