If Absent = False Then
With Workbooks.Open(Chemin & NomFich) 'ouverture du fichier
With .Sheets(1)
If TextBox1.Value <> "" Then .Range("B31") = Me.Controls("TextBox4").Value
If TextBox2.Value <> "" Then .Range("B32") = Me.Controls("TextBox5").Value
If TextBox3.Value <> "" Then .Range("B33") = Me.Controls("TextBox6").Value
End With
.Close True 'enregistrement et fermeture
End With