Columns(1).Select
Selection.Copy
Columns(7).Select
ActiveSheet.Paste
'With Workbooks(I_StrChiffrierDeBase).Sheets(1).UsedRange
Application.ScreenUpdating = False
nbligne = Sheets(1).Cells(Application.Rows.Count, 1).End(xlUp).Row
ActiveSheet.Range(Cells(2, 7), Cells(nbligne, 7)).Select
With Selection
For Each c In Feuil3.Range("A1", Feuil3.Range("A" & Feuil3.Rows.Count).End(xlUp))
Selection.Replace What:= _
c, Replacement:= _
0, LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False
'.Columns(c(1, 1)).Replace "*" & c & "*", "#N/A"
Next
Application.Goto .Cells(1)
End With
With Workbooks(I_StrChiffrierDeBase).Sheets(1).UsedRange
'.Columns(2) = 0 'colonne H par rapport à ma sélection, il s'agit de la colonne 2
On Error Resume Next 's'il n'y a pas de valeur d'erreur
'Intersect(.SpecialCells(xlCellTypeConstants, 16).EntireRow, .Columns(2)) = "#N/A"
'le tri place les #N/A en bas du tableau (pour accélérer la suppression)
.Resize(, 1).Sort .Columns(7), xlDescending, Header:=xlYes
.Columns(7).SpecialCells(xlCellTypeConstants, 1).EntireRow.Delete
.Columns(7).Delete xlToLeft
Application.Goto .Cells(1)
End With
Application.ScreenUpdating = True
End Sub