Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("S2:V1000")) Is Nothing Then
Dim NoMachine%, Technicien$, NoLigne%, Maintenance As Date, f
Application.ScreenUpdating = False
If Target.Column = 20 Then Exit Sub ' colonne "T" non concernée
If Cells(Target.Row, "S") = "" Or Cells(Target.Row, "U") = "" Or Cells(Target.Row, "V") = "" Then Exit Sub ' car tout n'est pas rempli
Set f = Sheets("Paramètres_Application")
With Sheets("Planning Perpétuel")
NoLigne = Application.Match(Cells(Target.Row, "S"), .Range("A:A"), 0) ' Recherche ligne de la machine
.Cells(NoLigne, "B") = f.Cells(Target.Row, "V") 'Technicien
.Cells(NoLigne, "D") = f.Cells(Target.Row, "U") 'Maintenance
End With
End If
Fin:
End Sub