Sub table_correspondance()
Columns("A:A").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1").Value = "Paramètre"
Columns("B:B").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("B1").Value = "Automate"
Dim i, derlig As Integer
derlig = Range("C65536").End(xlUp).Row
For i = 2 To derlig
If Range("C" & i) <> "" Then
Range("A" & i).Activate
ActiveCell.FormulaR1C1 = "=MID(RC[1],1,FIND("","",RC[1],1)-1)"
Range("B" & i).Activate
ActiveCell.FormulaR1C1 = "=apres_virgule(RC[1],3)"
End If
Next i
end sub