Dim celo As Range 'déclare la variable celo (cellule origine)
Dim celc As Range 'déclare la variable celc (cellule comparée)
Dim plago As Range 'déclare la variable plag (plage origine)
Dim plagc As Range 'déclare la variable plag (plage comparée)
Set plago = ActiveSheet.Range("B2" & Range("B65536").End(xlUp).Row) 'définit la variable plago
Set plagc = Sheets("obs1").Range("A1" & Range("A65536").End(xlUp).Row) 'définit la variable plagc
For Each celo In plago 'boucle pour chaque cellule origine de la plageo
For Each celc In plagc 'boucle pour chaque cellule comparée de la plagec
If celo.Value = celc.Value Then Active.celc. 'si c'est ok activer la cellc
ActiveSheet.Cells(ActiveCell.Row, 3).Value = Me.TextBox1.Text 'si c'est ok copier les valeurs dans des colonnes
ActiveSheet.Cells(ActiveCell.Row, 4).Value = Me.TextBox2.Text
ActiveSheet.Cells(ActiveCell.Row, 5).Value = Me.TextBox3.Text
ActiveSheet.Cells(ActiveCell.Row, 6).Value = Me.TextBox4.Text
ActiveSheet.Cells(ActiveCell.Row, 7).Value = Me.TextBox5.Text
ActiveSheet.Cells(ActiveCell.Row, 8).Value = Me.TextBox6.Text
ActiveSheet.Cells(ActiveCell.Row, 9).Value = Me.TextBox7.Text
ActiveSheet.Cells(ActiveCell.Row, 10).Value = Me.TextBox8.Text
ActiveSheet.Cells(ActiveCell.Row, 11).Value = Me.TextBox9.Text
ActiveSheet.Cells(ActiveCell.Row, 12).Value = Me.TextBox10.Text
ActiveSheet.Cells(ActiveCell.Row, 13).Value = Me.TextBox11.Text
Next
Next
Unload UserForm4
UserForm5.Show
End Sub