السلام عليكم ورحمة الله وبركاته
أخي بن علية جزاك الله كل خيرا
ومعذرة على هذا التأخر في الرد فأنت تعرف أحوال الأنترنت عندنا
قبل أن نكمل في العمل أود أن تشرح لي هذه الأسطر cette declaration
TT = Application.WorksheetFunction.Match(Range("G4"), Feuil2.Rows("5:5"), 0)
Dim Tab1(7) As Integer
Tab1(1) = TT: Tab1(2) = TT + 1: Tab1(3) = IIf(TT >= 38, "", TT + 2): Tab1(4) = IIf(TT >= 38, TT + 2, TT + 3): _
Tab1(5) = IIf(TT >= 38, TT + 3, TT + 4): Tab1(6) = IIf(TT >= 38, TT + 4, TT + 5): Tab1(7) = IIf(TT >= 38, TT + 5, TT + 6)
أخوك محمد