Salut Alex, salut le forum,
Pourquoi pas ça :
Dim test as String
If CheckBox1.Value = True Then
test="2003-2004"
Else
test="2004-2005"
fiche_personnel.TextBox5.Text = Sheets("RTT " & test).Range("c" & Ligne).Value
fiche_personnel.TextBox6.Text = Sheets("RTT " & test).Range("e" & Ligne).Value
fiche_personnel.TextBox3.Text = Sheets("RTT " & test).Range("d" & Ligne).Value
À plus,
Robert