Sub Macro2()
Columns("A:A").Insert Shift:=xlToRight
Dim i As Integer, derligne As Long
derligne = Range("B65536").End(xlUp).Row
Application.ScreenUpdating = False
For i = 1 To derligne
If UCase(Range("B" & i).Value) Like "FONCTION" Then
Cells(i, 1).Value = Cells(i, 3).Value
Else
If i > 1 Then Cells(i, 1).Value = Cells(i - 1, 1).Value
End If
Next i
Application.ScreenUpdating = True
End Sub