Sub MasterDataTER()
Dim OD As Worksheet, O As Worksheet
Dim DEST As Range, L&
Set OD = Sheets("Master Data")
For Each O In Worksheets
Select Case O.Name
Case "Sommaire", "Formulaire Demande", "Formulaire Process", "Master Data", "Stats"
Case Else
Set DEST = OD.Range("A65536").End(xlUp).Offset(1, 0)
L = O.Cells(Rows.Count, 1).End(xlUp).Row
If L > 1 Then
O.Cells(1, 1).Resize(L, 4).Copy
DEST.PasteSpecial Paste:=xlPasteValues
End If
End Select
Next O
OD.Range(Cells(2, 2), Cells(Rows.Count, 2).End(xlUp)).NumberFormatLocal = "jj/mm/aaaa"
End Sub