Sub nouvelleligne1()
Dim iR, i&, k&, Ak&, a, j, Z, CDep
Application.ScreenUpdating = False
Worksheets("SAISIE").Unprotect
CDep = ActiveCell.Address
iR = Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row, 11)).Address
If ActiveCell.Row >= 15 And activecelle.Row <= 50 Then
Range(iR).Insert Shift:=xlDown
Range("B51:K51").Delete Shift:=xlUp
Range(CDep).Select
End If
For a = 15 To 42
If IsEmpty(Cells(a, 3)) Then
Cells(a, 3).FormulaLocal = "=SI(NON(ESTVIDE(B" & a & "));RECHERCHEV(B" & a & ";'liste des articles'!$A$2:$D$10000;2;FAUX);"""")"
End If
Next
For Z = 15 To 42
If IsEmpty(Cells(Z, 9)) Then
Cells(Z, 9).FormulaLocal = "=SI(NON(ESTVIDE(B" & Z & "));RECHERCHEV(B" & Z & ";'liste des articles'!$A$1:$D$10000;4;FAUX);"""")"
End If
Next
For j = 15 To 42
If IsEmpty(Cells(j, 11)) Then
Cells(j, 11).FormulaLocal = "=SI(NON(ESTVIDE(B" & j & "));RECHERCHEV(B" & j & ";'liste des articles'!$A$1:$D$10000;3;FAUX);"""")"
End If
Next
Worksheets("SAISIE").Protect
Application.ScreenUpdating = True
End Sub