(Dim etat As String Dim dt_deb As Date Dim dt_fin As Date dt_deb = Format(dtp_deb.Value, "dd/mm/yyyy") dt_fin = Format(dtp_fin.Value, "dd/mm/yyyy") If (opt_dat.Value = 1) Then etat = "1111" GoTo suite End If If (opt_dat.Value = 1) Then etat = "1101" GoTo suite End If If (opt_dat.Value = 0) Then etat = "1100" GoTo suite End If suite: With adc_compt Select Case etat Case "1111" .Refresh .Recordset.Filter = "dat >= '" & dt_deb & "' and dat <= '" & dt_fin & "'" Case "1101" .Refresh .Recordset.Filter = "dat >= '" & dt_deb & "' and dat <= '" & dt_fin & "'" Case "1100" .Refresh End Select)