Sub ReupDonnées()
xPlage1 = Range("Données_boursières[Dernier Prix]")
xPlage2 = Range("Tableau3[Dernier Prix]")
On Error GoTo Erreur
'xLig = [J6] + 2
xLig = Application.Match(CLng(Date), Range("Tableau2[Nom]"), 0) + 2
With Sheets("Historique Bourse")
For F = 1 To 24
.Cells(xLig, 2 + F) = xPlage1(F, 1)
Next F
For F = 1 To 19
.Cells(xLig, 26 + F) = xPlage2(F, 1)
Next F
End With
Exit Sub
Erreur:
MsgBox "Date du jour n'est pas dans le tableau", vbCritical, "ERREUR"
End Sub