Sub bouton1_clic()
Dim nbligne As Integer 'Long si plus de 32 767 lignes
With Sheets("tableau")
nblig = .Cells.SpecialCells(xlCellTypeLastCell).Row
For i = 6 To nblig
.Cells(i, 17).Formula = IIf(IsError(Application.VLookup(Sheets("tableau").Range("A" & i), Sheets("extraction").Range("A1:J" & nblig), 10, False)), .Cells(i, 17), Application.VLookup(Sheets("tableau").Range("A" & i), Sheets("extraction").Range("A1:J" & nblig), 10, False))
Next i
End With
MsgBox "données initialisées"
End Sub