Private Sub valide_Click()
'
Dim LocaActu As String, LocaDest As String ' Localisations actuelle et de destination
Dim RayActu As Range, RayDest As Range ' Rayonnages actuel et de destination
With Worksheets("Entrée").Range("A1:W40")
LocaDest = ComboBox2.Value
Set RayDest = .Find(LocaDest, LookIn:=xlValues)
If Not RayDest Is Nothing Then MaReponse = MsgBox("/!\ La destination n'est pas vide !" & vbCrLf & "Continuer tout de même ???", vbYesNo)
If MaReponse = vbNo Then Exit Sub
LocaActu = ComboBox1.Value
Set RayActu = .Find(LocaActu, LookIn:=xlValues)
If RayActu Is Nothing Then Exit Sub
lg = RayActu.Row + 1
col = RayActu.Column + 1
c = .Cells(lg, col)
T = .Cells(lg + 1, col)
Bu = .Cells(lg + 2, col)
Rd = .Cells(lg + 3, col)
Re = .Cells(lg + 4, col)
Pe = .Cells(lg + 5, col)
Destination = .Cells(lg + 6, col)
Orientation = .Cells(lg + 7, col)
.Range(.Cells(lg, col), .Cells(lg + 7, col)).ClearContents
LocaDest = ComboBox2.Value
Set RayDest = .Find(LocaDest, LookIn:=xlValues)
If RayDest Is Nothing Then Exit Sub
lg = RayDest.Row + 1
col = RayDest.Column + 1
.Cells(lg, col) = c
.Cells(lg + 1, col) = T
.Cells(lg + 2, col) = Bu
.Cells(lg + 3, col) = Rd
.Cells(lg + 4, col) = Re
.Cells(lg + 5, col) = Pe
.Cells(lg + 6, col) = Destination
.Cells(lg + 7, col) = Orientation
End With
End Sub