Hello, je déjà eu des problèmes de plantage "Excel à provoqué une défaillance etc..." parce que j'omettais les .Value sur les plages de cellules que je manipulais.
Sinon, si tu as besoin que des valeurs, en passant par des tableaux ça va plus vite et ça plante moins
exemple pour copier les valeurs de la plage A1
4 dans la plage F1:I4
Sub essai()
Dim MonTableau As Variant
MonTableau = Range("a1:d4").Value
Range(Range("f1"), Range("f1").Offset(UBound(MonTableau) - 1, UBound(MonTableau, 2) - 1)).Value = MonTableau
End Sub
Peut être aussi en vidant le presse papier ? :
Application.CutCopyMode = False
Attention au protection des feuilles aussi
Sub Macro1()
Range("a1").Copy 'Fonctionne sur une feuille protégée
Columns(1).SpecialCells(xlcosntants).Select 'ne fontionne pas
End Sub
Le fond de l'here effraie