Dim lignom As Long
Dim derlig As Long
With ActiveSheet
derlig = Range("A1").End(xlDown).Row + 1
lignom = .Range("tableau3[Noms]").Row - 1 ' c'est là qu'est mon souci
Set mondico = CreateObject("Scripting.Dictionary")
Range(Cells(derlig, 3), Cells(lignom, 32)).ClearContents
For i = 3 To 32
For j = lignom + 1 To lignom + 41
If Cells(j, i) <> "" Then temp = Cells(j, 1)
mondico(temp) = temp
t = lignom - 1
Next j
For Each c In mondico
Cells(t, i).Value = c
t = t - 1
Next c
temp = ""
mondico.RemoveAll
Next i
End With