Dim WBSource As Workbook, WBCible As Workbook
Dim WSSource As Worksheet, WSCible As Worksheet
Dim PlageSource As Range, CellCibleLastRow As Range
Set WBSource = ThisWorkbook
Set WBCible = Workbooks("Mon Beau Classeur Ouvert")
Set WSSource = WBSource.Worksheets("Mes Données Source")
Set WSCible = WBCible.Worksheets("Ma Feuille de Destination")
Set PlageSource = WSSource.Range("A2:A200")
Set CellCibleLastRow = WSCible.Range("A2000").End(xlUp)