Bonsoir,
'ici au début du Sub tu as ceci:
Dim lastLine As Long
lastLine = ActiveWorkbook.Sheets("SUIVI DE FORMATION").Range("A3").End(xlUp).Row + 1
ActiveWorkbook.Sheets("SUIVI DE FORMATION").Range("A3:G100").ClearContents
'voir plutôt comme ceci: (il faut activer la feuille !!!)
Dim lastLine As Long
Sheets("SUIVI DE FORMATION").Activate
lastLine = ActiveSheet.Range("A3").End(xlUp).Row + 1
ActiveSheet.Range("A3:G100").ClearContents
EDIT: idem
'ici tu as ceci:
ActiveWorkbook.Sheets("SUIVI DE FORMATION").Range("A" & lastLine) = Cells(cell_TableauFonderie.Row, 3) 'PROGRAMME DE FORMATION
ActiveWorkbook.Sheets("SUIVI DE FORMATION").Range("B" & lastLine) = Cells(5, cell_TableauFonderie.Column + 1) 'OPERATEUR
ActiveWorkbook.Sheets("SUIVI DE FORMATION").Range("C" & lastLine) = Cells(5, 2) 'SECTEUR
ActiveWorkbook.Sheets("SUIVI DE FORMATION").Range("D" & lastLine) = Cells(cell_TableauFonderie.Row, 2) 'ACTIVITE
ActiveWorkbook.Sheets("SUIVI DE FORMATION").Range("E" & lastLine) = cell_TableauFonderie.Offset(0, 1) 'DATE DE FORMATION
ActiveWorkbook.Sheets("SUIVI DE FORMATION").Range("F" & lastLine) = cell_TableauFonderie.Offset(0, 1) + Cells(cell_TableauFonderie.Row, 26) 'DATE DE FORMATION + DUREE DE FORMATION
ActiveWorkbook.Sheets("SUIVI DE FORMATION").Range("G" & lastLine) = cell_TableauFonderie.Offset(0, 1) + Cells(cell_TableauFonderie.Row, 26) + Cells(cell_TableauFonderie.Row, 28) 'DATE DE FIN + TOURNUS
'voir plutôt comme ceci: (encore que la feuille concernée étant active, on peut se passer de With)
With ActiveSheet
.Range("A" & lastLine) = Cells(cell_TableauFonderie.Row, 3) 'PROGRAMME DE FORMATION
.Range("B" & lastLine) = Cells(5, cell_TableauFonderie.Column + 1) 'OPERATEUR
.Range("C" & lastLine) = Cells(5, 2) 'SECTEUR
.Range("D" & lastLine) = Cells(cell_TableauFonderie.Row, 2) 'ACTIVITE
.Range("E" & lastLine) = cell_TableauFonderie.Offset(0, 1) 'DATE DE FORMATION
.Range("F" & lastLine) = cell_TableauFonderie.Offset(0, 1) + Cells(cell_TableauFonderie.Row, 26) 'DATE DE FORMATION + DUREE DE FORMATION
.Range("G" & lastLine) = cell_TableauFonderie.Offset(0, 1) + Cells(cell_TableauFonderie.Row, 26) + Cells(cell_TableauFonderie.Row, 28) 'DATE DE FIN + TOURNUS
End With