ce texte doit aussi être insérer dans la page "gestion de commande" dans la colonne qui correspond a la combobox2 "type de commande"et a la ligne qui correspond a la combobox1.
veux-tu dire dans la feuille "GESTION_ÉQUIPEMENTS" ?
à tester,
Private Sub ComboBox2_Change()
Dim cherche As String, dercln As Long
Columns("X:AK").EntireColumn.Hidden = False
dercln = Sheets("PLANNING").Cells(1, Columns.Count).End(xlToLeft).Column
cherche = ComboBox2
col1 = Sheets("PLANNING").Range("Y1:" & Cells(1, dercln).Address).Find(cherche, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByRows, MatchCase:=False).Column
col2 = Sheets("GESTION_ÉQUIPEMENTS").Range("Y1:" & Cells(1, dercln).Address).Find(cherche, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByRows, MatchCase:=False).Column
TextBox4.Value = Sheets("PLANNING").Cells(lge, col1)
'ce texte doit aussi être insérer dans la page "gestion de commande"
'dans la colonne qui correspond a la combobox2 "type de commande" et a la ligne qui correspond a la combobox1.
Sheets("GESTION_ÉQUIPEMENTS").Cells(lge, col2) = Sheets("PLANNING").Cells(lge, col1)
End Sub