Private Sub UserForm_Initialize()
Dim StationID As Variant
Dim Niveau As Variant
Dim DoublonLigne As Integer
StationID = Sheets(1).Range("E5")
Niveau = Sheets("Saisir une donnée").Range("C5")
Sheets(Niveau).Select
DoublonLigne = Application.Match(StationID, Sheets(Niveau).Range("D3
9999"), 0)
'Labels des coordonnées initiales
Label6.Caption = Sheets(Niveau).Range(Cells(DoublonLigne, 5))
Label7.Caption = Sheets(Niveau).Range(Cells(DoublonLigne, 6))
Label8.Caption = Sheets(Niveau).Range(Cells(DoublonLigne, 7))
'Labels des coordonnées de remplacement
Label9.Caption = Sheets("Saisir une donnée").Range("F5")
Label10.Caption = Sheets("Saisir une donnée").Range("G5")
Label11.Caption = Sheets("Saisir une donnée").Range("H5")
End Sub