Bonjour Michel, Eric,
Heureux de te retrouver Eric, non rassure-toi, les lignes situées en dessous sont toujours vides. Le problème était d'enregistrer mes totaux à la suite de la dernière ligne. Ceci dit je te remercie si tu pouvais m'indiquer comment mettre cette ligne en surbrillance, une fois la copie effectuée afin de pouvoir y coller :
With Selection.Font
.Name = 'Times New Roman'
.FontStyle = 'Gras'
.Size = 12
End With
En vous remerciant.