Sub Sup()
Dim fichier As Variant, tablo, n&, i&
ChDir ThisWorkbook.Path
fichier = Application.GetOpenFilename("Fichiers Excel(*.xls*),*.xls*")
If fichier = False Then Exit Sub
With Workbooks.Open(fichier).Sheets(1).[A1].CurrentRegion.Resize(, 2)
tablo = .Value
n = 1
For i = 2 To UBound(tablo)
If InStr(tablo(i, 2), ";") Then
n = n + 1
tablo(n, 1) = tablo(i, 1)
tablo(n, 2) = tablo(i, 2)
End If
Next
'---restitution---
If .Parent.FilterMode Then .Parent.ShowAllData 'si la feuille est filtrée
.Resize(n) = tablo
.Offset(n).Resize(Rows.Count - n - .Row + 1).Delete xlUp 'RAZ en dessous
End With
End Sub