Sub RecupCom()
With Sheets("Suivi")
.Columns("D:D").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
.Range("Tab_Suivi[[#Headers],[Colonne1]]").FormulaR1C1 = "Commentaire"
.Range("D2").FormulaR1C1 = _
"=IFERROR(INDEX(Tab_Hier,MATCH([@Clé],Tab_Hier[Clé],0),4),"""")"
End With
End Sub