Sub TRI()
Application.ScreenUpdating = False
For NumLigne = 1 To Sheets("TRANSIT").Range("A" & Rows.Count).End(xlUp).Row
ValeurCherché = Sheets("TRANSIT").Range("A" & NumLigne).Value
'''''''''''
''DONNÉES''
'''''''''''
'On filtre la valeur recherchée
Sheets("DONNÉES").ListObjects("TableauDONNÉES").Range.AutoFilter Field:=1, _
Criteria1:=ValeurCherché
'On copie la valeur à ajouter ou modifier
NumValModif = Sheets("DONNÉES").Range("A1").End(xlDown).Row
ValModif = Sheets("DONNÉES").Range("A" & NumValModif).Value
'Si valeur trouvée
If ValModif = ValeurCherché Then
With Sheets("DONNÉES")
.Range("B" & NumValModif & ":E" & NumValModif).Value = Sheets("TRANSIT").Range("B" & NumLigne & ":E" & NumLigne).Value
End With
'Si pas trouvée
Else
Sheets("DONNÉES").ListObjects("TableauDONNÉES").Range.AutoFilter Field:=1
No = Sheets("DONNÉES").Range("B" & Rows.Count).End(xlUp).Row + 1
With Sheets("DONNÉES")
.Range("B" & No & ":E" & No).Value = Sheets("TRANSIT").Range("B" & NumLigne & ":E" & NumLigne).Value
End With
End If
''''''''
''SAVE''
''''''''
'On filtre la valeur recherchée
Sheets("SAVE").ListObjects("TableauSAVE").Range.AutoFilter Field:=1, _
Criteria1:=ValeurCherché
'On copie la valeur à ajouter ou modifier
NumValModif = Sheets("SAVE").Range("A1").End(xlDown).Row
ValModif = Sheets("SAVE").Range("A" & NumValModif).Value
'Si valeur trouvée
If ValModif = ValeurCherché Then
With Sheets("SAVE")
.Range("B" & NumValModif & ":E" & NumValModif).Value = Sheets("TRANSIT").Range("B" & NumLigne & ":E" & NumLigne).Value
End With
'Si pas trouvée
Else
Sheets("SAVE").ListObjects("TableauSAVE").Range.AutoFilter Field:=1
No = Sheets("SAVE").Range("B" & Rows.Count).End(xlUp).Row + 1
With Sheets("SAVE")
.Range("B" & No & ":E" & No).Value = Sheets("TRANSIT").Range("B" & NumLigne & ":E" & NumLigne).Value
End With
End If
'On enlève le filtre
Sheets("DONNÉES").ListObjects("TableauDONNÉES").Range.AutoFilter Field:=1
Sheets("SAVE").ListObjects("TableauSAVE").Range.AutoFilter Field:=1
Next NumLigne
Sheets("TRANSIT").Cells.Clear
Sheets("PLANNING").Select
End Sub