Private Sub num_parc_Change()
Dim o As Worksheet
Set o = Worksheets("infos")
miLigModif = CLng(num_parc) + 1 'On récupére la Ligne cible
Select Case o.Range("c" & miLigModif).Value
Case Is = "Tracteur"
OptionButton1.Value = True
Case Is = "Citerne"
OptionButton2.Value = True
Case Is = "Porteur"
OptionButton3.Value = True
Case Is = "Remorque"
OptionButton4.Value = True
End Select
immat.Text = o.Range("b" & miLigModif).Value
chassis.Text = o.Range("e" & miLigModif).Value
Set o = Nothing
End Sub