doublons

Sub Macro7()
Application.ScreenUpdating = False
    Rows("1:1").Insert Shift:=xlDown
    [B1] = "titre"
    [F1] = [B1]
    Range("B1:B9").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("F1" _
        ), Unique:=True
    [B1].EntireRow.Delete
Application.ScreenUpdating = True
End Sub

Sub Macro9()
Application.ScreenUpdating = False
y = Selection.Column: z = Selection.Count
If z = 1 Then MsgBox "une seule cellule de sélectionnée": Exit Sub
If Selection.Row = 1 Then
    Rows("1:1").Insert Shift:=xlDown
    [B1] = "titre"
    [F1] = [B1]
    Range(Cells(1, y), Cells(z + 1, y)).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("F1" _
        ), Unique:=True
    [B1].EntireRow.Delete
Else
x = Selection.Row - 1
    Range(Cells(x, y), Cells(x + z, y)).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("F1" _
        ), Unique:=True
    [F1].Delete Shift:=xlUp
End If
Application.ScreenUpdating = True
End Sub