Sub Transfert()
'Déclaration des variables objets workbook
Dim wkSource As Workbook, wkDestination As Workbook
'
'Initialisation du classeurs source
Set wkSource = Workbooks("toto.xls")
'
'Initialisation du classeur destination
Set wkDestination = Workbooks("Materials.xlsm")
'Ou Set wkDestination = ThisWorkbook
' (si c'est le classeur qui contient la macro)
'Transfert des valeurs dans classeur destination à partir du classeur source
wkDestination.Sheets("titi").Range("C3:C12,C17:C26").Value = _
wkSource.Sheets("titi").Range("C3:C12,C17:C26").Value
End Sub