Sub saisie_formulaire()
Dim TrouveDoss As Range, NumDoss As Range, DerLig As Long
Application.ScreenUpdating = False
Set NumDoss = Range("B2")
'si le numéro de dossier n'est pas vide
If NumDoss.Value <> "" Then
With Sheets("BDD")
'on cherche ce numéro dans la BDD colonne 1
Set TrouveDoss = .Columns(1).Find(NumDoss, LookIn:=xlValues, lookat:=xlWhole)
'si ce numéro est trouvé
If Not TrouveDoss Is Nothing Then
TrouveDoss.Resize(1, 22).Value = Application.Transpose(NumDoss.Resize(22, 1))
'si le numéro n'est pas trouvé on identifie la dernière ligne pour écrire à la suite
Else
DerLig = .Range("A65536").End(xlUp).Row + 1
.Range("A" & DerLig).Resize(1, 22).Value = Application.Transpose(NumDoss.Resize(22, 1))
End If
End With
End If
'Rendre le formulaire vierge et revenir à la première cellule
Range("B2:B23").ClearContents
Application.ScreenUpdating = True
End Sub