Sub nom_formule()
Dim i As Integer
Dim j As String
Dim Formula1 As Variant
Dim derligne As Integer
Dim dercol As Integer
Dim shref As Worksheet
Set shref = ActiveSheet
derligne = shref.Range("A2").End(xlDown).Row
For i = 2 To derligne
Cells(i, 1).Select
IName = Cells(i, 1)
j = Range("B" & i)
Formula1 = "=OFFSET(Pictos!$A$" & i & ",0," & j & ",1,1)"
ActiveWorkbook.Names.Add Name:=IName, RefersTo:=Formula1
Next i
End Sub