Private Sub CommandButton14_Click()
'On Error Resume Next
' Dim wkbSource As Workbook, wkbCible As Workbook, fichier As String
'Application.Workbooks.Open Application.GetOpenFilename()
On Error Resume Next
Dim wkbSource As Workbook, wkbCible As Workbook, fichier As String
Dim ws As Worksheet, x&, i&, j&, k&, L&, a, nom As String
fichier = ThisWorkbook.Path
Set wbSource = ThisWorkbook
Set FD = Application.FileDialog(msoFileDialogOpen)
With FD
fichier = ThisWorkbook.Path
.Title = "Choisissez le Fichier que Vous Souhaitez Mettre à Jour"
.InitialFileName = fichier & "\lien1\lien2\*"
.Filters.Clear
.Filters.Add "Fichier Excel", "*.xls"
.AllowMultiSelect = False
If .Show <> 0 Then
nom = .SelectedItems(1)
Else
MsgBox "Vous n'avez aucun fichier dans votre dossier", , "Manque de Fichier"
End If
End With
Set wkbCible = Workbooks.Open(nom)
'''''''''''''''''''''''''''
Set wbSource = ThisWorkbook
'ThisWorkbook signifie le classeur de ma macro
For n = 2 To wbSource.Worksheets("donnees_supprimees").Range("I65536").End(xlUp).Row
Set wbCible = ActiveWorkbook
Set c = wbCible.Worksheets("1").Range("I2:I" & Worksheets("1").Range("I65536").End(xlUp).Row).Find(Worksheets("1").Range("I" & n), LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
wbCible.Worksheets("1").Rows(Selection.Rows).Delete
End If
Next n
End Sub