Sub Increment10
Dim Derligne As Long
[A1] = 10
Derligne = [B65535].End(xlUp).Row
'[A2].FormulaLocal = "=si(gauche(b2;20)=""Consigne de sécurité"";10;A1+10)"
[A2].Formula = "=IF(LEFT(B2,20)=""Consigne de sécurité"", 10, A1+10)"
[A2].AutoFill Destination:=Range("A2:A" & Derligne)
With Range("A2:A" & Derligne)
.Copy
.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With
End Sub