XL 2013 méthode pastespecial de la classe range a échoué

Phil69970 à dit:

Bonjour @Joujita31

Une solution parmi d'autres....

VB:

Sub data_last_column()
Sheets("data_temp").Range("A2:T2").Copy
Sheets("data_mois").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
End Sub

Edit : Dans la plupart des cas on peut se passer des "select" et/ou "activate"

Merci de ton retour

@Phil69970

Cliquez pour agrandir...