Sub Macro1()
Dim ws As Worksheet 'déclare la variable ws
Dim dest As Range 'déclare la variable dest
Dim x As Byte 'déclare la variable x
Set ws = Sheets('Feuil1') 'définit la variable ws (à adapter, remplace par le nom de ton onglet Master)
Set dest = ws.Range('A1') 'définit la variable dest
For x = 1 To Sheets.Count 'boucle sur tous les onglets du classeur
If Sheets(x).Name <> ws.Name Then 'condition : si l'onglet n'est pas ws
Sheets(x).Range('B12').Copy 'copie B12
dest.PasteSpecial (xlPasteValues) 'colle la valeur de B12
Set dest = dest.Offset(1, 0) 'redéfinit dest
End If 'fin de la condition
Next x 'prochain onglet du classeur
End Sub