Private Sub UserForm4_Initialize() 'UserForm4_Initialize()
'Affichage de la dernière visite sur XXXXXX
'Si c'est avec un Label
Label1 = Sheets("Feuil1").[$g$4].Text
Label2 = Sheets("Feuil1").[$g$5].Text
'Si c'est avec un TextBox
TexBox1 = Sheets("Feuil1").[$g$4].Text
TexBox2 = Sheets("Feuil1").[$g$5].Text
End Sub