Public Sub SERVICE_BEHESP()
Dim MonTab1 As Variant, Compt11 As Long, Plg1 As Range, Plg2 As Range
Dim j As Long
Dim Z As String
Dim trouve As Range
Application.ScreenUpdating = False
With Feuil52
.Range("A1:O1").Copy Feuil60.Range("A1")
Set Plg1 = .Range("A2:O" & .Range("A" & .Rows.Count).End(xlUp).Row)
MonTab1 = Plg1.Value
j = 2
For Compt11 = LBound(MonTab1, 1) To UBound(MonTab1, 1)
Z = .Cells(Compt11, 13) & Chr(32) & .Cells(Compt11, 12)
'Z = MonTab1(Compt11, 13) & Chr(32) & MonTab1(Compt11, 12)
Set trouve = Feuil53.Columns(9).Find(Z, lookat:=xlWhole)
If Not trouve Is Nothing Then
MonTab1 = Feuil52.Range("A" & Compt11 & ":O" & Compt11)
With Feuil60
Set Plg2 = .Range("A" & j & ":O" & j)
'Set Plg2 = .Range("A1:N1")
Plg2.Value = MonTab1
End With
j = j + 1
End If
Next Compt11
End With
With Feuil60
'.Activate
.Columns("A:Y").AutoFit: .Range("A1").CurrentRegion.Borders.LineStyle = 1 'J'ajuste mes colonnes en tailles
Application.Union(.Range("F1"), .Range("G1"), .Range("K1")).EntireColumn.NumberFormat = "dd-mm-yyyy hh:mm:ss"
End With
Application.ScreenUpdating = True
End Sub