Après dernière écriture de la colonne "A"

Le code de michel fonctionne oui c'est vrai, mais il me copie toute la plage et la colle là où il faut sauf que moi je ne désire coller que les valeurs.

Re,

Excusez moi, problème d'ADSL comme d'hab en zone rurale;

Ci dessous rectification pour ne copier que les valeurs et non les formules:

Sub ImpTot()
Dim derlig As Long
Dim tablo As Range

derlig = Range('A65536').End(xlUp).Row
'remet en style 'normal' ( par exemple) la ligne de la dernière écriture
With Rows(derlig).Font
.Name = 'Arial'
.FontStyle = 'Normal'
.Size = 10
End With

Set tablo = Range('CA1O1')
Range(Cells(derlig + 1, 1), Cells(derlig + 1, 41)) = tablo.Value

With Rows(derlig + 1).Font
.Name = 'Times New Roman'
.FontStyle = 'Gras'
.Size = 12
End With

End Sub

Bonne soirée
MICHEL M

Bonsoir michel,
C'est le coeur rempli de joie que je viens te remercier ainsi que ta disponibilité et gentillesse. Je te souhaite une très bonne soirée.
Au plaisir.