Private Sub Worksheet_Change(ByVal target As Range)
If Intersect(target, [A1:A2]) Is Nothing Or [A2] = "" Then Exit Sub
Dim w As Worksheet
For Each w In Worksheets 'boucle sur les feuilles de calcul
If w.Name Like "S " & [A2] & "-*" Or w.Name Like "S *-" & [A2] Then
w.[A1] = [A1] 'copie de la cellule A1
w.Activate 'activation de la feuille, facultative
Exit For 'sort de la boucle
End If
Next
End Sub