Sub Macro5()
Dim Ws As Worksheet
For Each Ws In ThisWorkbook.Worksheets
With Ws
.Columns("B:C").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
.Range("B11").Value = "Date de facture"
.Range("C11").Value = "N°de facture"
.Range("D9").Copy Destination:=.Range("C12")
.Range(("B12:C12"), .[A65000].End(xlUp)).FillDown
MsgBox .Name
End With
Next Ws
End Sub