Sub test()
Dim irow As Long, s As Worksheet, valeur As Variant
valeur = InputBox("Client", "Ajout")
valeur2 = InputBox("Mission", "Ajout")
irow = Cells(Rows.Count, "A").End(xlUp).Row
For Each s In Worksheets
s.Rows(irow).Insert
s.Cells(irow, 1).Value = valeur
s.Cells(irow, 2).Value = valeur2
s.Cells(irow - 1, 8).Copy Destination:=s.Cells(irow, 8)
Next s
ActiveWorkbook.Worksheets("Feuil1").ListObjects("Tableau1").Sort.SortFields. _
Clear
ActiveWorkbook.Worksheets("Feuil1").ListObjects("Tableau1").Sort.SortFields. _
Add Key:=Range("Tableau1[[#All],[Colonne1]]"), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Feuil1").ListObjects("Tableau1").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWorkbook.Worksheets("Feuil2").ListObjects("Tableau13").Sort.SortFields. _
Clear
ActiveWorkbook.Worksheets("Feuil2").ListObjects("Tableau13").Sort.SortFields. _
Add Key:=Range("Tableau13[[#All],[Colonne1]]"), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Feuil2").ListObjects("Tableau13").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWorkbook.Worksheets("Feuil3").ListObjects("Tableau14").Sort.SortFields. _
Clear
ActiveWorkbook.Worksheets("Feuil3").ListObjects("Tableau14").Sort.SortFields. _
Add Key:=Range("Tableau14[[#All],[Colonne1]]"), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Feuil3").ListObjects("Tableau14").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub