Sub copie_tempo() 'Copie de Sauvegarde vers tempo et concatenation Nom Prenom
Sheets("Sauvegarde").Select
Cells.Select
Selection.copy
Sheets("tempo").Select
Range("A1").Select
ActiveSheet.Paste
'Recherche de la dernière ligne (Row) de la colonne A en partant de la dernière ligne (65536) en remontant (XlUp)
derlig = [A65536].End(xlUp).Row
'Boucle de 2 à la dernière Ligne trouvée ci-dessus
For L = 2 To derlig
'Concaténation: Cells(2,1) correspond par exemple à A1 et Cells(1,2) à B1 pour L = 2 d'où A1 = A1 & B1
Cells(L, 1) = Cells(L, 1) & " " & Cells(L, 2)
'Fin de la boucle
Next L
End Sub