'---restitution---
1 ActiveWorkbook.Close False 'ferme le fichier
2 With F
If .FilterMode Then .ShowAllData 'si la feuille est filtrée
With .[A3] '1ère cellule de destination, à adapter
If n Then
.Resize(n, ncol) = tablo
.Cells(1, 7).Resize(n) = "=IFERROR(VLOOKUP(RC[-1],'Famille - UO'!C1:C3,2,0),"""")" 'formule en colonne G
.Cells(1, 8).Resize(n) = "=IFERROR(VLOOKUP(RC[-2],'Famille - UO'!C1:C3,3,0),"""")" 'formule en colonne H
.Resize(n, ncol + 2).Borders.Weight = xlThin 'bordures incluant les colonnes G et H
End If
.Offset(n).Resize(Rows.Count - n - .Row + 1, ncol + 2).Delete xlUp 'RAZ en dessous incluant les colonnes G et H
End With
With .UsedRange: End With 'actualise la barre de défilement verticale
End With