Bonjour,
Ta feuille Base est protégée donc imposssible de vérifier ce qui se passe.
Tu as déjà un bug lors de la Saisie et peut être que cela vient de là.
J'ai adapté ta macro comme suit :
Sub Enreg_saisie()
Dim lig As Integer
Application.ScreenUpdating = False
Range("e20") = Date
With Sheets("BASE")
lig = .Range("B65536").End(xlUp).Row + 1
.Cells(lig, 2) = Sheets("saisie").Cells(17, 8)
.Cells(lig, 3) = Sheets("saisie").Cells(18, 8)
.Cells(lig, 4) = Sheets("saisie").Cells(19, 8)
.Cells(lig, 5) = Sheets("saisie").Cells(20, 8)
.Cells(lig, 6) = Sheets("saisie").Cells(21, 8)
.Cells(lig, 7) = Sheets("saisie").Cells(22, 8)
.Cells(lig, 8) = Sheets("saisie").Cells(23, 8)
.Cells(lig, 9) = Sheets("saisie").Cells(24, 8)
.Cells(lig, 10) = Sheets("saisie").Cells(25, 8)
.Cells(lig, 11) = Sheets("saisie").Cells(26, 8)
End With
Range("I17") = "dernier N° " & Range("H17") 'dernier N° dans la base
Range("H17") = Range("H17") + 1
Range("H18:H26").ClearContents 'efface la saisie
End Sub
Donne moi ton mot de passe afin que je puisse accéder au fichier entier.
A te relire
Dan