Bonjour Barth, bonjour le forum,
95 messages ici et tu te permets d'envoyer une "capture d'écran" alors que le site offre la possibilité d'envoyer le code formaté et même un fichier Excel.
T'as essayé sur les forums PhotoChope ? T'auras peut-être une réponse... Sinon :
Dim O As Worksheet
Dim DEST As Range
Dim LI As Integer
Set O = Worksheets("Total")
'pour une cellule
Set DEST = O.Cells(Application.Rows.Count, "B").End(xlUp)
'pour la ligne
LI = O.Cells(Application.Rows.Count, "B").End(xlUp).Row