déclaration des variables....
m = 2
If Worksheets("HistoriqueSaisie").Cells(m, 2).Value = "" Then
Worksheets("HistoriqueSaisie").Cells(m, 2).Value = TB1.Value
Worksheets("HistoriqueSaisie").Cells(m, 3).Value = Désignation
Worksheets("HistoriqueSaisie").Cells(m, 4).Value = nomfeuille
Worksheets("HistoriqueSaisie").Cells(m, 5).Value = jour
Worksheets("HistoriqueSaisie").Cells(m, 6).Value = TB2.Value
Else
Worksheets("HistoriqueSaisie").Cells(m + 1, 2).Value = TB1.Value
Worksheets("HistoriqueSaisie").Cells(m + 1, 3).Value = Désignation
Worksheets("HistoriqueSaisie").Cells(m + 1, 4).Value = nomfeuille
Worksheets("HistoriqueSaisie").Cells(m + 1, 5).Value = jour
Worksheets("HistoriqueSaisie").Cells(m + 1, 6).Value = TB2.Value
End If