Sub essai(nomfeuille As String, nommouvement As String)
Sheets(nomfeuille).Select
With Sheets(nomfeuille)
e = Range("A65536").End(xlUp).Row
Application.DisplayAlerts = False
Range("L3:L" & e) = "=IF(COUNTIF(" & nommouvement & "!C[-11],RC[-11])=0,""Pas d'entrée"",INDEX(mvtT07!C[-8],MATCH(RC[-11],mvtT07!C[-11],0),1))"
Range("M3:M" & e) = "=IF(COUNTIF(" & nommouvement & "!C[-12],RC[-12])=0,""Pas de sortie"",INDEX(mvtT07!C[-8],MATCH(RC[-12],mvtT07!C[-12],0),1))"
Range("N3:N" & e) = "=IF(AND(RC[-2]=db!R2C6,RC[-1]=db!R3C6),RC[-3],"""")"
Application.DisplayAlerts = True
Range("L:L,M:M").Select
Selection.NumberFormat = "m/d/yyyy"
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
End With
Range("M1").NumberFormat = "0"
Range([J3], [N3].End(xlDown)).Copy
Range([J3], [N3].End(xlDown)).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Columns("O:O").Delete
Range("A1").Select
End With
End Sub
' appel de la procédure
call essai(nomfeuille:="T07", nommouvement:="mvtT07")
call essai(nomfeuille:="Tx", nommouvement:="mvtTx")