rechercher une feuille

Sub copie()
'Macro par Dan le 08/09/07
Select Case Sheets("feuil1").Range("A1")
Case Is = "feuil2"
Range("A1:A8").Copy Destination:=Sheets("feuil2").Range("A1:A8")
Case Is = "feuil3"
Range("A1:A8").Copy Destination:=Sheets("feuil3").Range("B1:B8")
End Select
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim X As Integer
Dim Flg As Boolean
If Target.Address(0, 0) = "A1" Then
'si la cellule changée est en A1
    If UCase(Target) <> "XXX" And UCase(Target) <> "YYY" Then
    'si majuscule(A1)<> "XXX" et "YYY"
        MsgBox "la feuille " & Target & " n'est pas concernée !", vbCritical + vbOKOnly, _
                "Erreur de nom"
        'on avertit
        Exit Sub
        'on sort
    End If
    Select Case ucas(Target)
    'Mettre Majuscule(A1) en variable Case
        Case "XXX" 'A1="XXX"
            Range("A1:A8").Copy Sheets("XXX").Range("A1")
            'copier A1:A8 dans feuille "XXX" à partir de A1
        Case "YYY" 'A1="YYY"
            Range("A1:A8").Copy Sheets("YYY").Range("B1")
            'copier A1:A8 dans feuille "YYY" à partir de B1
    End Select
End If
End Sub